如何使用Perl将输出写入新的外部文件?
发布时间:2020-12-16 06:24:08 所属栏目:大数据 来源:网络整理
导读:也许我正在使用错误的关键字进行搜索,或者这是一个非常基本的问题,但我无法找到问题的答案.我无法将我的whois命令的结果写入新的外部文件. 我的代码如下.它需要$readfilename,它是一个具有IP列表的文件名,以及$writefilename,它是输出的目标文件.两者都是用
也许我正在使用错误的关键字进行搜索,或者这是一个非常基本的问题,但我无法找到问题的答案.我无法将我的whois命令的结果写入新的外部文件.
我的代码如下.它需要$readfilename,它是一个具有IP列表的文件名,以及$writefilename,它是输出的目标文件.两者都是用户指定的.对于我的测试,$readfilename在三个单独的行上包含三个IP地址,因此在用户指定的输出文件中应该有三个单独的whois结果. if ($readfilename) { open (my $inputfile,"<",$readfilename) || die "n Cannot open the specified file. Please double check your file name and path.nn"; open (my $outputfile,">",$writefilename) || die "n Could not create write file.nn"; while (<$inputfile>) { my $iplookupresult = `whois $_ > $writefilename`; print $outputfile $iplookupresult; } close $outputfile; close $inputfile; } 我可以执行此脚本并最终获得一个新的外部文件,但超过一半的文件具有二进制垃圾数据(在CentOS上运行),并且只有一个(或一部分)whois查找是可读的. 我不知道我的文件有一半是以二进制文件结尾…但我的方法必须是错误的.有没有更好的方法来实现相同的结果? 解决方法
您正在使用shell重定向将whois的输出重定向到文件.但是你也打开了文件进行写入,并试图将数据写入同一个文件,给你带来垃圾.只需删除shell重定向:
print $outputfile `whois $_`; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |