用戶輸入Perl與IO ::套接字

Question

我想做一個perl程序，它允許用戶輸入主機和外部主機的端口號連接到使用IO ::套接字。它允許我運行該程序並輸入一個主機和一個端口，但它永遠不會連接，並說「無法連接到[主機]在c：\ users \ USER \ Documents \ code \ perl \ sql.pl行18，第2行「。我在做什麼錯了下面顯示的代碼？而且，我如何在我的主機上進行輸入驗證，可以是主機名或IP地址？謝謝一堆！以下代碼

use IO::Socket 
print "Host to connect to: "; 
chomp ($host = <STDIN>); 
print "Port to connect with: "; 
chomp ($port = <STDIN>); 
while(($port > 65535) || ($port <= 0)){ 
    print "Port to connect with [Port > 0 < 65535] : "; 
    chomp ($port = <STDIN>); 
    } 
print "\nConnecting to host $host on port $port\n"; 
$socket = new IO::Socket::INET (
            LocalHost => '$host', 
            LocalPort => '$port', 
            Proto => 'tcp', 
            Listen => 5, 
            Reuse => 1 
           ); 
die "Could not connect to $host"; 

Answer 1

您對IO::Socket::INET的設置正在創建偵聽端口（又名服務器）。要創建一個客戶端嘗試：

$socket = IO::Socket::INET->new(
       PeerAddr => $host, 
       PeerPort => $port, 
       Proto => 'tcp' 
     ); 

這裏是IO::Socket::INET完整的文檔。