[ LH-frog @ 14.09.2007. 10:15 ] @
Molio bih pomoc oko dolje navedenog koda: Citat: #!/usr/bin/perl use IO::Socket; $socket = new IO::Socket::INET->new (PeerAddr=> '69.55.233.82', PeerPort=> 5842, Proto=> 'tcp' ); @msg=qw(1 2 3 4); $socket->send(@msg); $socket->recv($txt); print "$txt"; Citat: usage: $sock->send(BUF, [FLAGS, [TO]]) at code.pl line 11 |