salut tout le monde je veut programmer une socket d'un serveur http plutot la fonction GET càd
je veut que le client envoye au serveur le nom de la page qu'il veut voir et le serveur lui rend cette page mais ca marche pas
le code serveur est :
#!/usr/bin/perl -w
#serveur.pl#
###########
use Socket;
$server = IO:
ocket::INET->new(
LocalPort => 1444,
Type => SOCK_STREAM,
Reuse => 1,
Listen => 5
)or die "creation du serveur impossible. \n";
print "Démarrage du serveur..\n";
while ($client = $server->accept(){
print $client "le serveur dit bonjour au client !\ṇ";
while ($page = <$client>) {
print "le client veut telecharger la page suivante: $page" ;
open(fic,"+<$page") || die ("le fichier n'existe pas");
while (<fic>)
{ print $client $_ ;
}
}
}
le code client est :
#!/usr/bin/perl -w
#client.pl#
##########
use IO:
ocket;
print "nom ou adresse IP du serveur (lcalhost par défaut) ";
$adresse = <>; chomp($adresse);
$adresse= "localhost" if $adresse eq "";
$socket = IO:
ocket::INET->new(
PeerAddr => $adresse,
Proto => "tcp",
PeerPort => 1444
)
or die "connexion au serveur impossible.\n";
print "donner la page à telecharger:";
$page =<>; chomp($page);
print $socket $page;
print "la page est envoyée"
le probleme est que le serveur ne repond pas a la demande du client il n'affiche même pas le message
'le serveur dit bonjour au client '
si vous pouvez m'aidez et merci :wink:
Poste le Saturday 2 June 2007 02:34:09