我完全不懂Perl(正在学习中),需要一些帮助。我找到了下面的代码,可以很好地将结果打印到屏幕上,但我想将它打印到文件中。我该怎么做?当我打开一个文件并将输出发送到它时,得到的是垃圾数据。
以下是代码:
use Net::DNS;
my $res = Net::DNS::Resolver->new;
$res->nameservers("ns.example.com");
my @zone = $res->axfr("example.com");
foreach $rr (@zone) {
$rr->print;
}
当我添加以下内容时:
open(my $fh, '>', $filename) or die "Could not open file '$filename' $!";
.....
$rr -> $fh; #I get garbage.