[ 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
[ caiser @ 14.09.2007. 12:10 ] @
Ovo bi trebalo da radi.

Code:
#!/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);

foreach (@msg) {
        $socket->send($_);
}
$socket->recv($txt, 256);

print "$txt";
[ LH-frog @ 14.09.2007. 17:01 ] @
zahvaljujem