写了一个查看FTP文件更新的工具

最近没什么事情做，偷懒不想每次都登陆FTP查看，就写了这么一个PERL程序。

命令格式：在cmd中运行，FtpFileFind-v1.0.exe ftp.txt
ftp.txt为FTP服务器的配置文件，可以把自己想要查询的FTP服务器加进去，格式参 考原来的配置。
输出：cmd输出，并且输出到当前文件夹的一个RESULT.txt的文件中。

后语：此程序是PERL所写，就是想偷懒不用上FTP就知道最近更新了哪些文件，欢迎大家提出新的更新建议，方便大家使用。

提示：如果在cmd中不能显示中文，键入chcp 936后回车就ok！

#!/usr/bin/perl

print "*********************************************************/n";
print " FTP Find Tool/n";
print " Build by YangKang /n";
print "*********************************************************/n";
$ARGC=@ARGV;
if ($ARGC!=1) {
print "/n Usage: $0 ftpListFile/n";
print "/n Attention:Please make sure that your dictionary-file was exist/n";
print " or you have got the right address and port!/n";
print "/n Good Luck!";
exit;
}

use Net::FTP;

#use Strict;
use Socket;
my $ftpfile=$ARGV[0];
my $logfile="RESULT.txt";
my $logo="UPDATE TIME:";
sub find_type
{
my $path = shift;
my $a=substr($path,0,1);
return $a;
}

##########################################################
sub list
{
my $current = $_[0];
my @subdirs;
$currenttmp=substr($current,0,2);
if($currenttmp eq "//")
{
$current=substr($current,1);
}
$ftp->cwd($current);
my @dir=$ftp->dir($current);
foreach(@dir)
{
my $path=$ftp->pwd();
my $filetype=&find_type($_);
$filename=substr($_,55);
if(&find_type($_) eq "d")
{
if($filename ne ".")
{
if($filename ne "..")
{
$currentpath=$path . "/".$filename;
push @subdirs,$currentpath;

}
}
}
else
{
if(!($_ =~ /^total/))
{
#print "$_/n";
my @filetime=split //s+/,$_; #tiem of file
my $filemonth=$filetime[5];
my $fileday=$filetime[6];
my $filehour=$filetime[7];
my $temptime="$logo $filemonth $fileday $filehour";
$test=$ftp->mdtm($filename);
if($test>$now)
{
#print LOG "$_/n";
print $path."/$filename $temptime/n";
print LOG ($path."/$filename $temptime/n");
}
}
}
}
foreach (@subdirs)
{

&list($_);
}
}
##########################################################
#($name, $aliases, $proto) = getprotobyname('tcp');
#($name, $aliases, $port) = getservbyname($port, 'tcp') unless $port =~ /^/d+$/;

#read from file
open(USERFILE,$ftpfile)||die("Can't open the user's list!/n");
open(LOG,">RESULT.txt")||die("Can't open the result file!/n");
$now=time();
$now -= (24 * 3600*3 ); #day before yesterday
@data=<USERFILE>;
foreach(@data)
{
my @a=split //s+/,$_;
$address=shift(@a);
$port=shift(@a);
$username=shift(@a);
$password=shift(@a);
print "Testing on $address:$port username:$username;pass:$password .../n";
print LOG ("/n");
print LOG ("/n");
print LOG ("==========new update file in FTP Server of $address==========/n");
print LOG ("/n");
print LOG ("/n");
$ftp=Net::FTP->new($address,Port => $port);
die "couldn't connect!/n" unless $ftp;
$ftp->login($username,$password);
if($ftp->cwd('/'))
{
print "FTP Server:$address can be connected now!/n";
print "Analysing $address............/n";
&list('/');
print "Finish Analysing $address/n";
print "############################################/n";

}
else
{
print "FTP Server:$address cann't be connected now!/n";
}
$ftp->quit();
}
close (USERFILE);
exit(0);

ftp.txt格式：

ip(或者域名) port name password 中间以空格分隔。

如下：

xxxx.ihep.ac.cn 21 xxx xxx