Perlは：私はURLではなくローカルファイルからファイルを開く方法を知りたいと思ったURL

Question

からファイルを開いて、私は別のスレッド上で、次の答えを見つけました：これは完璧に動作

use IO::String; 
my $handle = IO::String->new(get("google.com")); 
my @lines = <$handle>;      
close $handle; 

.. 。私のPCで...

しかし、コードを私のホストされているサーバーに転送すると、IOモジュールが見つからないという不満があります。それで、URLからファイルを開く別の方法があります。外部モジュールは必要ありません（または、すべてのサーバーにインストールされているものを使用します）...？

Answer 1

「URLからファイルを開く」方法はありません。さて、あなたはLWP :: UserAgentのprogress()コールバックを使って何かを一緒に投げることができると思うが、それでもあなたが望むように動作するとは思わない。

しかし、あなたはかなり簡単にしたいように見えるものを作ることができます。実際に、私たちが実際にやっていることは、URLからすべてのデータを取り戻し、そのデータを含む文字列でファイルハンドルを開くことです。

use LWP::Simple; 

my $data = get('https://google.com'); 
open my $url_fh, '<', \$data or die $!; 

# Now $url_fh is a filehandle wrapped around your data. 
# Treat it like any other filehandle. 

while (<$url_fh>) { 
    print; 
} 

IO :: Stringがインストールされていないという問題がありました。しかし、標準的なPerlの機能（単に文字列への参照でファイルハンドルを開く）をするだけで簡単にできるので、インストールする必要はありません。

更新：ここで、IO :: Stringは完全に不要です。文字列への参照でファイルハンドルを開くだけでなく、Webサイトからファイルを配列に読み込むだけで簡単にできるようになるためです。その場合、コードは次のようになります。

use LWP::Simple; 

my $url = 'something'; 
my @records = split /\n/, get($url); 

エラーハンドリングを追加することも考えられます。

use LWP::Simple; 

my $url = 'something'; 
my $data = get($url); 
die "No data found\n" unless defined $data; 
my @array = split /\n/, get($url); 

Answer 2

あなたはあなたのopen経由でURLからファイルハンドルを開くための入力層を与えるPerlIO::httpを、インストールすることができます。これはPerlコアには含まれていませんが、will work with Perls as early as 5.8.9です。

インストールしたら、モード引数に:httpのレイヤーを持つopenを実行するだけで済みます。 useには何もありません。それは自動的に起こります。

open my $fh, '<:http', 'https://metacpan.org/recent'; 

通常のファイルのように$fhから読み取ることができます。フードの下では、データをワイヤで処理することに注意します。

while (my $line = <$fh>) { ... }