Perl：讀取網絡文本文件並「打開」它

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）」，但它會創建一個字符串。我不能用那個字符串做一段時間（）。

有誰知道這可以做到嗎？

Answer 1

很簡單，只需使用open的open FILEHANDLE,MODE,REFERENCE風格。

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