Bonjour,

j'aimerai savoir comment faire pour lister les fichiers d'un répertoire en FTP
J'ai fait ceci mais ça me fait la recherche sur ma machine et non sur le FTP
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
33
34
35
36
37
38
39
#!/usr/bin/perl
 
# use module
use XML::Simple;
use warnings;
use strict;
use Data::Dumper;
use Image::Magick;
use XML::Twig;
use File::Basename;
use NET::FTP;
 
 
sub get
{
	my ($hostname, $login, $passwd) = ("xxx.xxx.xxx.xx", "login", "password");
 
	my $ftp = Net::FTP->new($hostname, Debug => 0) or die "Cannot connect $hostname: $@";
 
	my $rep = $ftp->cwd(".");
	foreach my $file (glob("./*.xml"))
	{
		my $fichier = basename($file);
 
		print $fichier."\n";
 
		next if ( $fichier !~ /^test(.+)$/ ) ;
 
		$ftp->login($login, $passwd) or die "Cannot login ", $ftp->message;
 
		$ftp->binary();
 
		$ftp->get($fichier);
	}
 
	$ftp->quit;
}
 
get();
Merci