我的代码如下.它需要$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查找是可读的.

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