[TP] socket ... rapide hum hum

[cipher16]

Code: Tout sélectionner

#!/usr/bin/env perl

use Socket;

     $server = shift;
     $port = 80;
     $server_addr =(gethostbyname($server))[4];
     $server_struct = pack("S n a4 x8", AF_INET, $port, $server_addr);
     print $server_struct;
     $proto = (getprotobyname('tcp'))[2];
     socket(MYSOCK, PF_INET, SOCK_STREAM, $proto) or die "Problème d'initialisation du socket : $!\n";
     connect(MYSOCK, $server_struct) or die "Problème de connection : $!\n";
     select(MYSOCK);
     $| = 1;
     select(STDOUT);
     print MYSOCK "GET ".shift()."\n\n";
     while (<MYSOCK>) {
          print;
     }
     close(MYSOCK);