🚀 go-pugleaf

Czesc

Mam pytanko na temat programowania socket'ow w perlu

Otwieram polaczenie z serverem newsow w nastepujacy sposob :

#!/usr/bin/perl

use Socket;

$remote = $ARGV[0];
$port   = $ARGV[1];

$iaddr   = inet_aton($remote) || die "error\n";
$paddr   = sockaddr_in($port, $iaddr);
$proto   = getprotobyname('tcp');

socket(SOCK, PF_INET, SOCK_STREAM, $proto)  || die "Socket error\n";
connect(SOCK, $paddr) || die "error\n";
while($line = <SOCK>)
{
	print $line;
}

Program sie laczy z serverem newsow i "wywala" taka linie :

200 lublin.pl InterNetNews NNRP server INN 1.5.1 17-Dec-1996 ready (posting ok).

Chce zapisac liste grup newsowych na jakas zmienna. Wiem ze nalezy wyslac
do serwera komende LIST. W jaki sposob mam przerobic ten programik zeby
zapisywal mi na zmienna liste grup newsowych?

Z gory dziekuje za pomoc w rozwiazaniu problemu.

Pozdrawiam

emial : d0roc@is.com.pl