Question

也许我正在搜索错误的关键字，或者这是一个非常基本的问题，但我无法找到问题的答案。我无法将我的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.\n\n";
    open (my $outputfile, ">", $writefilename) || die "\n   Could not create write file.\n\n";
    while (<$inputfile>) {
        my $iplookupresult = `whois $_ > $writefilename`;
        print $outputfile $iplookupresult;
    }
    close $outputfile;
    close $inputfile;
}

我可以执行此脚本并最终获得一个新的外部文件，但超过一半的文件具有二进制垃圾数据（在CentOS上运行），并且只有一个（或一部分）whois查找可读。< / p>

我不知道我的文件有一半是以二进制结尾...但我的方法必须是错误的。有没有更好的方法来实现相同的结果？

Answer 1

您正在使用shell重定向将whois的输出重定向到文件。但是你也打开了文件进行写入，并试图将数据写入同一个文件，给你带来垃圾。只需删除shell重定向：

print $outputfile `whois $_`;

如何使用Perl将输出写入新的外部文件？

1 个答案: