Serveur Client : pas de réponse !
Je viens d'ecrire (recopier) ce script : un serveur qui attend une requete et qui l'affiche. et puis qui renvoie une réponse au client.
j'ai essayé de me connecter au serveur avec mon navigateur internet, avec telnet et aussi avec un client en perl (je demande l'adresse 127.0.0.1).
Le serveur m'affiche bien la requete envoyée mais ne renvoie rien au client et le navigateur cherche localhost sans y arriver.
(notez que je fais tout en local)
code du serveur :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
| #!C:/Perl/bin/perl.exe
use strict;
use warnings;
use Socket;
my ($serveur,$ipServ,$paddr,$proto);
my $port =80;
my $texte = "hello bob";
$serveur='localhost';
$ipServ=gethostbyname($serveur);
$proto = getprotobyname('tcp');
$paddr = (sockaddr_in( $port, INADDR_ANY )or die ("impossible"));
socket( SOCK, PF_INET, SOCK_STREAM, $proto ) or die "socket: $!";
bind (SOCK,$paddr)|| die ("Liaison impossible.\n");
listen (SOCK, 1)|| die ("Liaison impossible.\n");
my $client=accept(CLI,SOCK);
print CLI $texte; #<==== ICI
while (my $line = <CLI>) {
print $line;
}
print "Connection acceptee ";
<stdin>;
close SOCK;
close CLI;
exit; |
donc "print CLI $texte; " devrait renvoyer hello bob au client, mais non !
voilà le probleme ! merci d'avance
