IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Modules Perl Discussion :

[LWP Socket] Ma donnée n'arrive pas sur mon script


Sujet :

Modules Perl

  1. #1
    Nouveau membre du Club
    Inscrit en
    février 2007
    Messages
    36
    Détails du profil
    Informations forums :
    Inscription : février 2007
    Messages : 36
    Points : 28
    Points
    28
    Par défaut [LWP Socket] Ma donnée n'arrive pas sur mon script
    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

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    19 799
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 19 799
    Points : 499 035
    Points
    499 035
    Par défaut
    Pensez à mettre votre code sous balise code,

    Merci

    NB : Sélectionnez votre code et cliqué sur #

  3. #3
    Nouveau membre du Club
    Inscrit en
    février 2007
    Messages
    36
    Détails du profil
    Informations forums :
    Inscription : février 2007
    Messages : 36
    Points : 28
    Points
    28
    Par défaut 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

  4. #4
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    19 799
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 19 799
    Points : 499 035
    Points
    499 035
    Par défaut
    je déplace le message dans le forum module

Discussions similaires

  1. Base de données n'existe pas sur un autre PC
    Par kortobi dans le forum JDBC
    Réponses: 2
    Dernier message: 08/10/2014, 20h31
  2. Réponses: 0
    Dernier message: 30/08/2014, 01h49
  3. cette base de donnée ne fonctionne pas sur PC
    Par lesud13 dans le forum 4D
    Réponses: 1
    Dernier message: 28/09/2009, 16h55
  4. Je n'arrive pas à terminer mon formulaire en PHP
    Par snakejl dans le forum Langage
    Réponses: 12
    Dernier message: 10/05/2006, 23h35
  5. ASP ne tourne pas sur mon serveur IIS
    Par Germain123 dans le forum ASP
    Réponses: 3
    Dernier message: 08/09/2005, 22h50

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo