linux – 我的Perl有多糟糕？获取IP地址并返回完全限定域名的脚

这段代码完成了工作.它需要一个包含IP列表的.txt文件,并写入包含各自完全限定域名的文件.

我想知道这些代码在哪些方面写得不好.这有什么坏习惯？

我是一个perl和编程新手.我设法使用谷歌和跟踪和错误把它放在一起.让它工作令人满意,但请告诉我如何改进.

use strict;
use warnings;
use Socket;
use autodie;


my $filename = 'IPsForFQDN.txt';
#File with list of IPs to lookup.
#One IP address per line like so:
#10.10.10.10
#10.10.10.11
#10.10.10.12
#etc...


open(my $fh,'<:encoding(UTF-8)',$filename)
    or die "Could not opne file '$filename' $!";
my $fqdn = '';

while (my $row = <$fh>) {
    chomp $row;

    print "$rown";
    $fqdn = gethostbyaddr(inet_aton($row),AF_INET);
    print $fqdn;
    print "n";
    open FILE,">>fqdn.txt" or die $!;
    print FILE $fqdn;
    print FILE "n";
    close FILE;

}
print "donen";

例如,需要{chomp $row;}行吗？我没有想法它做了什么.

我对整个{或死$!;}的事情同样感到困惑.