获取ftp文件列表的perl程序

#!/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;
}

 

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值