- 论坛徽章:
- 0
|
回复 8# tmp
这个我也查到了, 但我按照它说的来做,
- #!/usr/bin/perl
- use warnings;
- use strict;
- use IO::Socket::INET;
- use IO::Socket::Timeout;
- my $port = 1;
- while($port < 100){
- my $socket = IO::Socket::INET->new(
- PeerAddr => "localhost",
- PeerPort => $port,
- Proto => 'tcp',
- Timeout => 1
- );
- IO::Socket::Timeout->enable_timeouts_on($socket);
- $socket->read_timeout(1);
- if($socket){
- print "$port Open!\n";
- my $banner = <$socket>;
- print $banner, "\n";
- close($socket);
- }
- $port++;
- }
复制代码
返回:
Can't call method "read_timeout" on an undefined value at scan.pl line 17.
说明这个$socket是一个未定义的东西,,,,
我上面不是创好了$socket了吗, 怎么还未定义?
它说意思应是, read_timeout不能用于未定义的$socket吧。
如何解决?
|
|