Bonsoir,,
Voici mon code :
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
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
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