[Confirme] connexion sur moi-meme => plantage

Wed, 05 Jul 2000 06:07:29 -0700 

use Socket;
$|=1;
 chop(my $local_host=`hostname`);
 my $local_addr=inet_aton($local_host);
 socket (COM, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die "socket not 
available: $!";
 $i=0;
 while (connect (COM,sockaddr_in(2501,$local_addr))==0) {
print "wait\n";
  die "connect: $!" if ($i++ >5);
  sleep(1);
  }
 print "Connected\n";

Avec ce script, On voit 6 fois "wait" et c'est tout!
r�seau plant�, disque plant�, clavier plant� (sauf magic sysreq).
Linux kernel=2.2.15-4mdk  Perl=perl-base-5.00503-10mdk
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:


--
The falsely dramatic drives out the truly dull.

Répondre à