Perl 套接字连接检查

Question

我已经尝试调试这个 perl 问题有一段时间了，但没有取得进展。我想要做的是确定连接是否是socks4/5 连接。

# ./pctest.pl
Name "main::junk" used only once: possible typo at ./pctest.pl line 60.
Name "main::empty" used only once: possible typo at ./pctest.pl line 60.
IO::Socket::INET: Bad hostname 'C1(X'   ...propagated at ./pctest.pl line 52.

我也遇到过这个错误（在我添加或死亡@$;之前）：

Can't use an undefined value as a symbol reference at ./pctest.pl line 56.

。

...
  $look = IO::Socket::INET->new( PeerAddr => $_, Proto => 'tcp', Timeout => 5 ) or die @$;

            $sock4 = pack( "CCS", 4, 1, 80 );

            print $look $sock4;

            read( $look, $recv, 10 );

            ( $empty, $granted, $junk ) = unpack( "C C C6", $recv );

            if( $granted == 0x5A )
            {
                    print " Yes\n";
            }
            else
            {
                    print " No\n";
            }
...

Answer 1

有一个错字。 @$ 实际上应该是 $@。

要消除“可能的拼写错误”消息，并且由于 $empty 和 $junk 似乎在代码中未使用，请编写：

my @result = unpack("C C C6", $recv);

if ($result[1] == 0x5A) {
# ...
}

Answer 2

只是旁注：我认为您正在考虑 $@，而不是 @$。您需要将代码包含在

eval { ... };

构造中。请参阅：

my $look;
eval { $look = IO::Socket::INET->new( PeerAddr => $_, Proto => 'tcp', Timeout => 5 ) };

if ($@) {
   do_something_with($@);
}

当然，这并没有回答原来的问题:)

Answer 3

该错误消息意味着 IO::Socket::INET->new 调用中 PeerAddr 的参数值无效。

构造函数期望 PeerAddr 值为主机名或 IP 地址 (nnn.nnn.nnn.nnn)。检查 $_ 的内容，我打赌你会发现一些不同的东西。