版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/qq_28847617/article/details/80279614
#!/usr/bin/perl
package file_ftp;
use strict;
use warnings;
use Net::FTP;
unshift(@INC,"$ENV{work_path}");
my $ip="***";
my $username="***";
my $password="******";
my $cd="/app/tmn/ftpeoms";
my $lcd="/app/***/***/***/***/perl_learn";
my $file_mode="*.sh";
my $file_list="list.txt";
open (out_list,">> $lcd/$file_list") or die "not touch the new file $!";
my $ftp=Net::FTP->new($ip,Debug=>1,Timeout=>30);
$ftp->login($username,$password);
$ftp->binary();
$ftp->cwd($cd);
my @file_list=$ftp->ls($file_mode);
foreach (@file_list)
{
print out_list $_."\n";
}
my $file_num=@file_list;
print "文件总数:$file_num\n";
$ftp->quit();
1;
package file_ftp;
use strict;
use warnings;
use Net::FTP;
unshift(@INC,"$ENV{work_path}");
my $ip="***";
my $username="***";
my $password="******";
my $cd="/app/tmn/ftpeoms";
my $lcd="/app/***/***/***/***/perl_learn";
my $file_mode="*.sh";
my $file_list="list.txt";
open (out_list,">> $lcd/$file_list") or die "not touch the new file $!";
my $ftp=Net::FTP->new($ip,Debug=>1,Timeout=>30);
$ftp->login($username,$password);
$ftp->binary();
$ftp->cwd($cd);
my @file_list=$ftp->ls($file_mode);
foreach (@file_list)
{
print out_list $_."\n";
}
my $file_num=@file_list;
print "文件总数:$file_num\n";
$ftp->quit();
1;