为什么在以下 Perl 脚本中使用未初始化的值时会收到警告？

Question

我正在尝试减少此列表中打印的端口数量：

ABCD 80,280,443,515,631,7627,9100,14000

到我最感兴趣的：

<代码>ABCD 80,515,9100

为此，我使用了这段代码：

foreach (@ips_sorted) {
  print "$_\t";
  my $hostz = $np->get_host($_);
    my $port = 0;
    my $output = 0;
    $port = $hostz->tcp_ports('open');
  if ($port == 80 || $port == 445 || $port == 515 || $port == 9100) {
    $output =  join ',' ,$port;  
  } 
  print $output;

  print "\n";
}

我可能不需要说它不起作用。我明白了：

<代码>ABCD 0

在 parse-nmap-xml.pl 行 **（带有 if 的行）的数字 eq (==) 中使用未初始化值 $port。

Answer 1

最有可能的是，表达式 $hostz->tcp_ports('open') 返回 undef，而不是您期望的数字。

Answer 2

以下是如何从包含端口列表的字符串中选择感兴趣的端口：

#!/usr/bin/perl

my %interesting = map { $_ => undef } qw( 80 445 515 9100 );
(undef, my $str) = split ' ', q{A.B.C.D 80,280,443,515,631,7627,9100,14000};

my @ports = grep { exists $interesting{$_} } split /,/, $str;

print "Interesting ports: [@ports]\n";

以下是我将如何重写您的代码：

#!/usr/bin/perl

my %interesting = map { $_ => undef } qw( 80 445 515 9100 );

for my $ip (@ips_sorted) {
    print "$ip\t";
    my $hostz = $np->get_host($ip);
    unless ( defined $hostz ) {
        warn "get_host returned undef for ip: '$ip'\n";
        next;
    }
    my $port = $hostz->tcp_ports('open');

    unless ( defined $port ) {
        warn "tcp_ports returned undef for ip: '$ip'\n";
        next;
    }

    (undef, my $str) = split ' ', $port;
    my @ports = grep { exists $interesting{$_} } split /,/, $str;

    if ( @ports ) {
        print join(',', @ports);
    }
    print "\n"
}

Answer 3

$hostz->tcp_ports('open') 可能会返回一个端口列表，您应该将其存储在数组变量中：@ports 而不是 $ports< /代码>。然后你应该检查数组的每个元素。

您也可以只用一行来完成：

$output = join(',', grep { $_ != 80 && $_ != 445 && $_ != 515 && $_ != 9100 } $hostz->tcp_ports('open'));