活動perl多個套接字

Question

好吧，即時通訊在活動perl中創建多個套接字時遇到問題。這裏是我試圖在這裏做什麼的例子。

for($i=0;$i<$botcount;$i++){ 
my ($socket[$I],$client_socket[$I]); 
my $socket[$I] = new IO::Socket::Socks(
ConnectAddr=>$chatip, 
ConnectPort=>$chatport, 
); 
} 

不幸的是，這給了我一個錯誤。

我知道我可以重新命名它，但那會造成如此多的不拘泥於空間。 有人可以幫我嗎？

Answer 1

#!/usr/bin/perl -w 
use strict; 
use diagnostics; #this will explain warnings/errors 

#declare your variables here 
my ($botcount, $chatport, $chatip); 
my @client_socket; 
my @socket; 
foreach my $i (0..$botcount){ 
     $socket[$i] = new IO::Socket::Socks(
      ConnectAddr => $chatip, 
      ConnectPort => $chatport 
    ); 
}