Discussion :

[voulton]

Bonjour,


Je souhaite lister les fichiers contenus dans un répertoire sur un FTP.

J’utilise Net::FTP pour accéder au FTP et faire un GET sur un fichier. Mais par exemple je souhaiterais télécharger tous les fichiers dont l’extension est .ZIP dans le fichier de lecture

Je ne trouve pas grand-chose d’intéressant là-dessus et je ne sais pas quels fonction utiliser.

Quelqu’un pour m’aiguiller ?

Voulton


ps : j'utilise ces lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
     my @fl = $ftp->ls();		
 
	 my $vari; 		
 
 
	 foreach $vari (@fl) {
	 print	$vari; 
	 print "\n";
	 }

mais je n'arrive pas à "identifier" le type

[voulton]

Finalement j'ai trouvé quelque chose d'interessant par hazard (comme quoi le net est un bon outil (et moi un mauvais codeur ^^)

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
#
#!/usr/bin/perl
#
 
#
use strict;
#
use File::Basename;
#
use CGI qw/:standard/; #if running as a CGI application
#
#use CGI::Carp qw/fatalsToBrowser/; # uncomment for debugging only
#
print header,start_html; # if running as a CGI application
#
 
#
my $dir = '/home/username/public_html';
#
opendir(DIRHANDLE,$dir) or die "Can't open $dir: $!";
#
my @filenames = sort readdir(DIRHANDLE);
#
close(DIRHANDLE);
#
foreach my $file (@filenames) {
#
my(undef, undef, $ftype) = fileparse($file,qr"\..*");
#
print "$ftype<br>\n";
#
}

combiné a mon code précédant ca peu donner quelque chose d'interessant.


Cordialement


Voulton

[Jedai]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
     my @fl = $ftp->ls();		
 
	 my $vari; 		
 
 
	 foreach $vari (@fl) {
	 print	$vari; 
	 print "\n";
	 }

mais je n'arrive pas à "identifier" le type

Quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
my @files = $ftp->ls();		
 
for my $filename (@files) {
  $ftp->get($filename) if $filename =~ m/\.zip\Z/i;
}

(En passant je trouve énorme la différence de lisibilité que peut faire quelques changements de noms de variables...)

--
Jedaï