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); 
}