Perl：阅读网络文本文件并“打开”它

发布时间：2020-12-15 21:47:47 所属栏目：大数据来源：网络整理

导读：我正在尝试创建一个脚本来读取文本文件,然后分析它们,无论文本文件是在线还是离线. 离线部分完成,使用 open(FILENAME,"anyfilename.txt")analyze_file();sub analyze_file { while (FILENAME) {analyze analyze}} 现在对于在线部分,无论如何都要在网站上阅读

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

离线部分完成,使用

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的 open FILEHANDLE,REFERENCE风格.

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!