Форум АНТИЧАТ - создать несколько сокетов (Perl)

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - создать несколько сокетов (Perl) (https://forum.antichat.xyz/showthread.php?t=44062)

создать несколько сокетов (Perl)

всем привет, нужна помощь в таком вот вопросе, нужно создать несколько сокетов, по типу: $socket, $socket2 и так далее, конечно их можно написать так:

Код:

$socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp")

$socket2 = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp")

Но так код будет выглядеть не красиво, вопрос - как сразу создать несколько сокетов?

про циклы и массивы/списки слышал?

Код:

my @a = ();

for(1..10)

{

  my $b = IO::Socket::INET -> new('127.0.0.1:1234') || next;

  push(@a, $b);

}