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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
io::socket
b) script d'envois via
Code : Sélectionner tout - Visualiser dans une fenêtre à part
LWP
Les deux script marche a 100% !
Maintenant j'ai rassembler les deux
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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