🚀 go-pugleaf

Sebastian Lukasiewicz <d0roc@kmicic.is.com.pl> wrote:

: 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?

Na początek wyłącz buforowanie tego socketa, żeby komenda print od 
razu przesyłała dane, a nie czekała aż się ich zbierze większa ilość:

select SOCK; $|=1; select stdout;

A później to już prosto:

# pobierz linię "powitalną" od serwera
$first_line = <SOCK>;
# pobierz listę
print SOCK "LIST\r\n";
while(<SOCK>) {
  chop; chop;
  last if /^\.$/;  # kropka kończy listę grup
  ( $grupa, $pierwszy_art, $ostatni_art, $moderowana ) = split;
  # tutaj wrzucasz do tablicy to co Cię interesuje, np:
  push @grupy, $grupa;
}

# A tutaj już można robić coś dalej, np. odczytać listę dostępnych 
# artykułów danej grupy przez LISTGROUP nazwa.grupy albo odczytać
# konkretny artykuł przez ARTICLE numer_artykułu

Zwróć uwagę, że praktycznie wszystkie protokoły zaznaczają koniec 
linii nie przez \n, a przez \r\n, z czym wiąże się konieczność 
obcięcia dwóch znaków z końca każdej linii, i dodania odpowiedniej 
sekwencji na końcu tego co się wpisuje w print.

P.S. Program nie sprawdzony, mogą być błędy :-)

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND