Perlソケット接続チェック

Question

私はこのperl問題をしばらくデバッグしようとしていましたが、頭を悩ませていませんでした。私がしようとしているのは、接続がsocks4/5接続の場合は、determainです。 （私が追加または@ $を死ぬ前に、最後に）

# ./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）であることが必要です。 $_の内容を確認すれば、違うものが見つかるはずです。