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;
Partager