擷取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;
}