Perl：Webテキストファイルを読み込んで開きます

Question

テキストファイルがオンラインであるかオフラインであるかにかかわらず、テキストファイルを読み込んで解析するスクリプトを作成しようとしています。

オフライン部分は

を使用して、行われている今、オンラインの部分は、ウェブサイト上のテキストファイルを読み込み、それを「開く」ためにとにかくはありますか？

私が達成したいと考えて何

はこれです：

if ($offline) { 
    open(FILENAME, "anyfilename.txt") 
} 
elsif ($online) { 
    ##somehow open the http web text so that I can do a while (<FILENAME>) later 
} 

analyze_file(); 

sub analyze_file { 
    while (<FILENAME>) {analyze analyze} 
} 

あり "（ 'http://weblink.com/textfile.txt;）を得るには、" だけど、それは文字列を作成します。私はその文字列でwhile（）を行うことはできません。

これはどのように行うことができますか？

Answer 1

open FILEHANDLE,MODE,REFERENCEのスタイルはopenと単純です。

use LWP::Simple; 
if ($offline) { 
    open(FILENAME, '<', "anyfilename.txt") 
} 
elsif ($online) { 
    my $text = get 'http://example.com'; 
    open(FILENAME, '<', \$text); 
}