脚本失败 请帮看看

kb2008

#/usr/bin/perl -w
my @list1;
my @A=("192.168.100.1","192.168.100.88","192.168.100.99");
my @port_A=(22,23,25,80,631,111);

for my $A (@A) {
  for my $port_A (@port_A) {
    push @list1,"$A-$port_A-tcp\t";}
}

foreach my $list1 (@list1) {
@network_list = split(/-/,$list1);

&port_check(@network_list[0],@network_list[1],@network_list[2]);
}

sub port_check {
use IO::Socket::INET;
($host,$port,$proto) = @_ ;
$socket = new IO::Socket::INET(
        PeerHost =>$host,
        PeerPort =>$port,
        Proto    =>$proto);# or die "ERROR in Socket Creation : $!\n";
if($socket){
        print "check port OK: $host $port $proto \n";
}
else{
       
        print "not found port：$host $port $proto\n";
}
$socket->close();
}



一直报错：
Can't call method "close" on an undefined value at sub.pl
好像是 $socket这个没有定义成功，不知道哪里出错了

sosflyer

回复 1# kb2008

if($socket){
        print "check port OK: $host $port $proto \n";
        $socket->close();
}

   

kb2008

回复 2# sosflyer

我觉得 与$socket->close(); 位置没有 关系啊；

因为 我把子函数 的内容 放在外面执行是成功的：
my $ip="192.168.100.99";
my $ports="22";
my $pro="tcp";

&port_check($ip,$ports,$pro);
sub port_check {
use IO::Socket::INET;
($host,$port,$proto) = @_ ;
#print "$host,$port,$proto\n";
$socket = new IO::Socket::INET(
        PeerHost =>$host,
        PeerPort =>$port,
        Proto    =>$proto);# or die "ERROR in Socket Creation : $!\n";
if($socket){
        print "check port OK: $host $port $proto \n";
}
else{
        print "not found port：$host $port $proto\n";
}
$socket->close();
}

结果是:
check port OK: 192.168.100.99 22 tcp


我觉得 是不是 在 数组循环的 时候 引用 子函数 出问题了， 导致 $socket = new IO::Socket::INET  没成功


谢谢你的回复


   

iamlimeng

2楼回复是正确的！

kb2008

回复 4# iamlimeng

修改之后 没有 系统提示的错误了，但是 $socket = new IO::Socket::INET  还是 没有生效；
所以 $socket  一直为空，为什么在 数组里面 定义  $socket  不生效呢？


不知道 我说清楚没


   

yybmsrs

tcp后面多了个\t

kb2008

回复 6# yybmsrs


    对了 ，就是这个 谢谢 ；
  
半天没找出来

cdtits

1.     ($host, $port, $proto) = @_;
   
2.     $proto =~ s/\s+$//g;

复制代码

貌似因为 $proto 尾部有"\t"

kb2008

回复 8# cdtits


浆糊了

cdtits

回复 9# kb2008


    "tcp" 是否等于 "tcp\t" ?