[Perl,FTP] Envoie d'un fichier via Net::FTP

J’ai un problème lorsque j’envoie plusieurs fichiers en FTP via la bibliothèque Net::FTP.

Un exemple vaut mieux qu’un long discours
Avant :
[codebox]
/* ---------------------- Modif ---------------------- */
.header {
position:absolute;
top:0;
left:0;
width:100%;
height:116px;
overflow:auto;
}

.dolphinnav {position:relative;height:33px;font-size:12px;text-transform:uppercase;font-weight:bold;background:#fff url(dolphin_bg.gif) repeat-x bottom left;padding:0 0 0 20px; margin-bottom: 10px;}
.dolphinnav ul{margin:0;padding:0;list-style-type:none;width:auto;float:left;}
.dolphinnav ul li{display:block;float:left;margin:0 1px;}

[/codebox]

Après :
[codebox]
/* ---------------------- Modif ---------------------- *
.header
position:absolute;
top:0;
left:0;
width:100%;
height:116px;
overflow:auto;

.dolphinnav {position:relative;height:33px;font-size:12px;text-transform:uppercase;font-weight:bold;background:#fff url(dolphin_bg.gif) repeat-x bottom left;padding:0 0 0 20px; margin-bottom: 10px;
.dolphinnav ul{margin:0;padding:0;list-style-type:none;width:auto;float:left;
[/codebox]

Certains caractères se sont fait la malle, j’ai cherché brièvement sur le net sans succès,
ca vient de Perl ou des paramètres FTP ?

Le code en question :
[codebox]
use warnings;
use strict;

use base qw( PMagFramework::Task::Task );

use Error qw(:try);
use Net::FTP;
use File::Copy;
use File::Temp;
use PMagFramework::Error::SFTPException;
use PMagFramework::PMagFramework;

[…]

sub runTask {
[…]
try {
# Connection
my $ftp = Net::FTP->new($framework->getProperty(‘valostk.sftp.url’), Debug => 1)
or throw PMagFramework::Error::SFTPException("Impossible de se connecter au serveur " . $framework->getProperty(‘valostk.sftp.url’));

        $ftp->login($framework->getProperty('valostk.sftp.user'), $framework->getProperty('valostk.sftp.password'))
            or throw PMagFramework::Error::SFTPException("Impossible de se connecter au serveur " . $framework->getProperty('valostk.sftp.url') . " : User/Password incorrect");

        $ftp->type('binary');

        # Création du répertoire
        $ftp->mkdir ($framework->getProperty('valostk.sftp.path'), 1);
        $ftp->cwd ($framework->getProperty('valostk.sftp.path'));
    
        # On envoie les fichiers
        for my $file ( glob ($self->createEnvTask()->outDirectory() . "/*")) {
            $ftp->put ($file);
        }
    
        # Deconnection
        $ftp->quit;
    } catch PMagFramework::Error::SFTPException with {
        $logger->error( $self->code() . " > " . prior Error->stacktrace );
        $error = 1;
    };

}
[/codebox]

Essaie avec un $ftp->binary; avant le $ftp->login.

Malheureusement, ca n’a strictement aucun effet B) mais…

un $ftp->type(“I”); après le $ftp->login fonctionne, trouvé à l’adresse http://members.tripod.com/~the_great_site/autoftp.htm

Merci quand même BokLM, en tout cas je commence à moins apprécié le Perl pour la qualité moyenne de ces librairies.