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:

---

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;

---

c'était une question de quote de \
fallait rajouté une ligne $line =~ s|/\\|/\\|;

Code:

---

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;

---