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