[LWP Socket] Ma donnée n'arrive pas sur mon script
Bonsoir,,
Voici mon code :
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
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
47
48
| #!/usr/bin/perl
use strict;use warnings;
use IO::Socket;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
#$ua->agent("MyApp/0.1 ");
my $serveur = IO::Socket::INET->new(LocalPort => 24243,
Type => SOCK_STREAM,
Reuse => 1,
Listen => 10)
or die "Impossible serveur tcp sur le port 24243 : $@\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>) {
#envois des donnees --------------------------
# transfert de la donnée $rep
my $url = "http://www.go-xxx.com/transfert.php?mebb=".$rep."&pp=ok";
my $req = HTTP::Request->new(POST => $url);
$req->content_type('multipart/form-data');
$req->content('query=libwww-perl&mode=dist');
#---------------------------------------------------
print $rep;
if ( $rep =~ /^QUIT/i) {
close($client);
}
print "*** Fin de connexion sur PID $$ ***\n";
exit;
}continu {
close($client);
}
}
$SIG{CHLD} = 'IGNORE';
__END__ |
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Ma donnée $rep n'arrive pas pq??
Pourtant je ne reçois pad d'erreur
Je suis debutant et sans erreur aucune idée !!
Merci et bonne soirrée
Stéphane
Ne suis-je pas a la bonne place ??
Me suis-je trompé de forum ??
Je crois que c'est une question langage ??
Bonne journée
Stéphane
