|
|
|
|
Bonjour,
J'aimerais faire du client-serveur intéractif en Perl.
J'ai un serveur.pl qui fonctionne correctement, j'ai repris ce script : http://perl.enstimac.fr/DocFr/perlipc.html#serveurs%20tcp%20avec%20io::socket
Et j'ai un client.pl dont voici le code :
use IO::Socket;
use warnings;
use strict;
my ($sock, $kidpid);
$sock = IO::Socket::INET->new(Proto => "tcp",
PeerAddr => "192.168.0.11",
PeerPort => 9000)
|| die "Failed : $!";
$sock->autoflush(1);
$kidpid = fork();
die "can't fork: $!" if ! defined($kidpid);
if ($kidpid) {
# PERE : Ecoute des entrées clavier et envoi à la socket
while (<STDIN>) { print $sock $_; }
} else {
# FILS : Ecoute de la socket et affichage à l'écran
while (<$sock>) { print STDOUT $_; }
}
close $sock;
Configuration: Windows 2000 Firefox 2.0.0.6
Salut,
#!/usr/bin/perl
use strict;use warnings;
use IO::Socket;
my $serveur = IO::Socket::INET->new(LocalPort => 10000,
Type => SOCK_STREAM,
Reuse => 1,
Listen => 10)
or die "Impossible serveur tcp sur le port 10000 : $@\n";
while (my $client = $serveur->accept()) {
next if my $pid = fork;
close($serveur);
print "*** Debut de connexion ***\n";
print $client "Bienvenu sur le SERVER !\n--- Je suis PID $$ ---\n";
while( my $rep = <$client>) {
print $rep;
if ( $rep =~ /^QUIT/i) {
close($client);
}
print "*** Fin de connexion sur PID $$ ***\n";
exit;
}continu {
close($client);
}
}
$SIG{CHLD} = 'IGNORE';
__END__
le client#!/usr/bin/perl
use strict;use warnings;
use IO::Socket;
my $socket = IO::Socket::INET->new(Proto => "tcp",
PeerAddr => "10.0.0.5",
PeerPort => 10000)
or die "Failed : $@\n";
print "*** Debut de connexion ***\n";
while(my $reponse=<$socket>){
print "Le serveur a dit : $reponse";
print $socket "Au revoir SERVEUR!!!\n";
}
print "*** Fin de connexion ***\n";
__END__
Sur le serveurlami20j@deb:~$ perl ccm.pl *** Debut de connexion *** Au revoir SERVEUR!!! *** Fin de connexion sur PID 12855 ***Sur le client lami20j@debian:~$ perl ccm.pl *** Debut de connexion *** Le serveur a dit : Bienvenu sur le SERVER ! Le serveur a dit : --- Je suis PID 12855 --- *** Fin de connexion *** lami20j@debian:~$ lami20j |
Bonsoir lami, merci pour ta réponse.
|
Re,
|
Répondre à philippe
|
Effectivement, tes sources sont fiables, même si je trouve que ça ne sonne pas très bien.
|
Bien j'avou que j'ai exactement le meme soucis que toi, peu importe les codes testés, je ne peux que lire dans la socket, ou que ecrire dessus, mais pas les deux, et ce soucis ne se pose que sous windows ..
|
Carte sd protégé en écriture Comment lire les pps Ecriture pour blog Ecriture pour photofiltre Ecriture special Erreur : impossible de lire depuis le socket : econnreset - connection reset by peer Impossible de lire mon dd externe probleme d ecriture Lire divx sur ps3 Lire fichier mp4 Lire mot a mot en perl Lire pps Lire un dvd Lire un fichier flac Lire un texte et sa ecrit sur l'ordi Perl lire un fichier Socket Socket 1156 écriture msn
