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

Programmation et administration système Perl Discussion :

probleme d'envoi avec net::ftp suite recherche de fichier


Sujet :

Programmation et administration système Perl

  1. #1
    Candidat au Club
    Homme Profil pro
    Inscrit en
    Février 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Service public

    Informations forums :
    Inscription : Février 2013
    Messages : 2
    Points : 2
    Points
    2
    Par défaut probleme d'envoi avec net::ftp suite recherche de fichier
    Bonjour,
    j'ai un petit souci, je fais une recherche pour trouver toute les images jpg sur une partition.
    Ensuite le tableau qui contient la liste des fichiers est trié ligne par ligne pour être envoyé par ftp a l'aide de net::ftp.
    des transfert ftp ce font bien, mais le nom des fichiers arrivés ne sont pas le même, et les fichiers reçu ne sont plus des images.
    voici les lignes de code qui doivent posés problème.

    Si quelqu'un a une idée sur l'endroit ou j'ai bourdé, merci d'avance

    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
    my @command1    = `dir e:\ *.jpg /S /D /B`;
    my @tableau;
    foreach my $line (@command1)
     {
     if ($line =~ /\.jpg/) { chomp $line; push(@tableau, "$line\n"); }
     }
    my $ftp=Net::FTP->new("127.0.0.1",Timeout=>240, Port=>21, Passive => 1) or die "erreur libnet";
    $ftp->login("jmb","unreal") or die "erreur connexion ftp";;
    $ftp->binary();
    foreach my $line (@tableau)
     {
     $line =~ s/^\s+//;
     chomp $line;
     $ftp -> put($line);
     sleep 5;
     }
    $ftp->quit;

  2. #2
    Candidat au Club
    Homme Profil pro
    Inscrit en
    Février 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Service public

    Informations forums :
    Inscription : Février 2013
    Messages : 2
    Points : 2
    Points
    2
    Par défaut j'ai trouvé
    c'était une question de quote de \
    fallait rajouté une ligne $line =~ s|/\\|/\\|;
    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
    my @command1    = `dir e:\ *.jpg /S /D /B`;
        my @tableau;
        foreach my $line (@command1)
            {
            if ($line =~ /\.jpg/)
                {
                chomp $line;
                push(@tableau, "$line\n");
                }
            }
        my $ftp=Net::FTP->new("127.0.0.1",Timeout=>240, Port=>21, Passive => 1) or die "erreur libnet";
        $ftp->login("jmb","unreal") or die "erreur connexion ftp";
        $ftp->binary();
        foreach my $line (@tableau)
            {
            $line =~ s/^\s+//;
            $line =~ s|/\\|/\\|;
            chomp $line;
            $ftp -> put($line);
            sleep 5;
            }
        $ftp->quit;

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. probleme d'envoi avec tsendmail
    Par tegleyt dans le forum Développement de jobs
    Réponses: 0
    Dernier message: 30/06/2011, 14h55
  2. Réponses: 7
    Dernier message: 18/05/2011, 21h06
  3. net::ftp : pb recuperation gros fichier
    Par lelian dans le forum Modules
    Réponses: 1
    Dernier message: 04/09/2008, 23h55
  4. Connection et deconnection immediate avec net::FTP
    Par Hideki-kun dans le forum Programmation et administration système
    Réponses: 2
    Dernier message: 30/05/2007, 07h50
  5. Problème d'encodage avec serveur Ftp de Novell
    Par hocinema dans le forum Applications et environnements graphiques
    Réponses: 1
    Dernier message: 18/10/2006, 11h03

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