获取ftp文件列表的perl程序
2010-07-09 16:41
417 查看
#!/usr/bin/perl -w
use Net::FTP;
use strict;
my $server='IP地址';
my $user = '用户名';
my $pw = '密码';
my $ftp = Net::FTP->new($server) ;
$ftp->login($user,$pw) or die "login failed!/n";
print "login ok! starting list files on $server..../n";
&list("/cmcc_cbbs/balance/zhangxr");
$ftp->quit;
#*************************************************#
sub list()
{
my $current = $_[0];
my @subdirs;
$ftp->cwd($current);
my @allfiles = $ftp->ls();
foreach (@allfiles)
{
if(&find_type($_) eq "d")
{
push @subdirs,$_;
}
else
{
print $current."/$_/n";
}
}
foreach (@subdirs)
{
&list($current . "/" . $_);
}
}
sub find_type
{
my $path = shift;
my $pwd = $ftp->pwd;
my $type = '-';
if ($ftp->cwd($path))
{
$ftp->cwd ($pwd);
$type = 'd';
}
return $type;
}
use Net::FTP;
use strict;
my $server='IP地址';
my $user = '用户名';
my $pw = '密码';
my $ftp = Net::FTP->new($server) ;
$ftp->login($user,$pw) or die "login failed!/n";
print "login ok! starting list files on $server..../n";
&list("/cmcc_cbbs/balance/zhangxr");
$ftp->quit;
#*************************************************#
sub list()
{
my $current = $_[0];
my @subdirs;
$ftp->cwd($current);
my @allfiles = $ftp->ls();
foreach (@allfiles)
{
if(&find_type($_) eq "d")
{
push @subdirs,$_;
}
else
{
print $current."/$_/n";
}
}
foreach (@subdirs)
{
&list($current . "/" . $_);
}
}
sub find_type
{
my $path = shift;
my $pwd = $ftp->pwd;
my $type = '-';
if ($ftp->cwd($path))
{
$ftp->cwd ($pwd);
$type = 'd';
}
return $type;
}
相关文章推荐
- FtpClient 获取ftp文件列表
- C#获取远程FTP文件列表
- C#获取远程FTP文件列表
- 【转载】C#如何操控FTP,获取FTP文件或文件夹列表,获取FTP文件大小,FTP上传,FTP删除文件,FTP新建文件夹、删除文件夹
- 使用.net FtpWebRequest 实现FTP常用功能 上传 下载 获取文件列表 移动 切换目录 改名 .
- FTP文件操作之获取文件列表
- ftp获取文件列表的脚本
- 解决FTP下载文件时遇到的无法获取列表org.eclipse.debug.core.DebugException: com.sun.jdi.ClassNotLoadedException:
- IDFTP获取ftp文件列表中文乱码的解决办法
- c# 使用FtpWebRequest,FtpWebResponse ,Stream 实现获取文件列表及下载
- Poco之ftp获取文件列表以及下载文件
- C#获取远程FTP文件列表
- C#获取远程FTP文件列表
- 如何获取 ftp 文件列表
- FTP服务器LIST指令获取的文件列表信息解析(UNIX格式)
- 用JAVA获取FTP文件列表
- 使用Apache 的 FTP Client获取FTP服务器上的文件列表FTP response 421 received.Server closed connection问题的解决
- C#获取远程FTP文件列表
- C#获取远程FTP文件列表
- 使用.net FtpWebRequest 实现FTP常用功能 上传 下载 获取文件列表 移动 切换目录 改名