🚀 go-pugleaf

Nalezy tylko pamietac, ze jesli serwer moze podac odpowiedz kilkiliniowa,
to zakonczy ja linia zawierajaca ,,samotna'' kropke. Jesli odpowiedz bedzie
jednoliniowa, to konczyc ja bedzie para znakow <CR><LF>, wiec stosownie do
tego nalezy zonglowac metodami:

jesli oczekujemy odpowiedzi kilkuliniowej, to
   
      SOCK->input_record_separator("\r\n.\r\n");

Jesli oczekujemy odpowiedzi jednoliniowej, to

      SOCK->input_record_separator("\r\n");

#!/usr/bin/perl

use Socket;
use FileHandle;

$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";

SOCK->autoflush();
$line = <SOCK>;
print $line;
print SOCK "LIST\n";
SOCK->input_record_separator("\r\n.\r\n");
$listagrup = <SOCK>;
print SOCK "QUIT\n";
close(SOCK);

@lista = split(/\r\n/,$listagrup);
print join("\n",@lista)."\n";


Powodzenia w ujazmianiu perla zyczy

Gad

PS. Proponuje zainteresowac sie modulem IO:Socket, obsluga polaczen
sieciowych jest wtedy znacznie prostsza...

-- 
                                 mailto:reptile@pdi.net :)
                  Women are more complicated than PC... :(
          Look into my headers and you'll see who I am. :)