Perl：读取网页文本文件并“打开”它

我正在尝试创建一个脚本来读取文本文件，然后分析它们，无论文本文件是在线还是离线。

离线部分完成，使用

open(FILENAME, "anyfilename.txt")
analyze_file();

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

现在对于在线部分，是否有办法读取网站上的文本文件，然后“打开”它？

我希望达到的目标是：

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

有“get('http://weblink.com/textfile.txt;)”，但它创建了一个字符串。我无法使用该字符串执行 while() 操作。

有谁知道如何做到这一点？

很简单，只需使用open FILEHANDLE,MODE,REFERENCE http://perldoc.perl.org/functions/open.html的风格open http://perldoc.perl.org/functions/open.html.

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