Насколько ужасен мой Perl? Скрипт, который берет IP-адреса и возвращает полностью определенные доменные имена

$! сообщает, почему что-то не удалось. Здесь, если вам не удалось открыть файл, будет указана причина сбоя. perlvar имеет раздел на error-переменные.

Вы используете chomp для удаления символа новой строки из конца каждой строки.

При написании файла, который вы вызываете open несколько иначе, рассмотрите возможность использования той же версии с тремя аргументами, что и вы сделать при открытии для чтения ранее в вашем коде (также см. ссылку, которую я дал вам для открытия), и в том же стиле кодирования. Быть последовательным - хорошо, к тому же этот метод безопаснее.

Вы постоянно открываете fqdn.txt для каждой написанной вами строчки. Я бы просто открыл его перед петлей и закрывал в конце.

Да, и вы используете автодобавку, поэтому or die в этом нет необходимости.

Да, и вы также использовали для этого open старый стиль, а не новый стиль, открытый для чтения файла.

На работе почти ничего не происходит, поэтому я немного переписал с комментариями, чтобы объяснить несколько вещей. Не правильно / не неправильно, только мое вращение и несколько стандартов, которые мы используем у меня дома, были добавлены.

Надеюсь это поможет...

use strict;
use warnings;
use Socket;

# initialize variables here.
my $filename = "IPsForFQDN.txt";

# open both file handles - once only
# Note safer expression using 2 commas
open(FH, "<", $filename)
        or die "Could not opne file '$filename' $!";

# open FILE for appending
open FILE, ">>", "fqdn.txt" or die $!;

# use foreach instead of while - easier syntax (may provoke discussion ;-) )
# replaced $fh for FH - use file handles throughout for consitency
foreach my $row ( <FH> )
{
    chomp $row;

    # put a regex check in for comments

    if( $row !~ m/^#/ )
    {
        printf ("Row in file %s \n", $row );

        # initialize $fqdn here to keep it fresh
        my $fqdn = gethostbyaddr(inet_aton($row), AF_INET);

        # formatted print to screen (STDOUT)
        printf ("FQDN %s \n", $fqdn);

        # formatted print to output file
        printf FILE ("%s \n", $fqdn);
    }
}

# close both file handles - once only
close FILE;
close FH;

print "done\n";