Ma variable ne passe pas ->http req
Bonjours à tous,,
Je viens de créer ce code afin d'écouter un port 24243 et de transférer l'info vers un site web.Pour tester , nous avions crée deux script
A) script de reception via b) script d'envois via Les deux script marche a 100% !
Maintenant j'ai rassembler les deux
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
| #!/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 $ua = LWP::UserAgent->new;
my $url = "http://www.locationweb.be/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;
print "url=."$url;
if ( $rep =~ /^QUIT/i) {
close($client);
}
print "*** Fin de connexion sur PID $$ ***\n";
exit;
}continu {
close($client);
}
}
$SIG{CHLD} = 'IGNORE';
__END__ |
Actuellement mon http request ne fonctionne pas.
Etant débutant en perl mais têtu je veux comprendre pourquoi je ne reçois aucun message d'erreur
J'espère être dans le bon forum
Merci et bonne journée
Stéphane
