ftp列表脚本

tendy

#!/usr/bin/perl -w

use Net::FTP;
use strict;

my $server='ftp.xjtu.edu.cn';
my $user = 'ftp';
my $pw = 'ftp';


my $ftp = Net::FTP->new($server) ;
$ftp->login($user,$pw) ;
print "login ok! starting list files on $server....\n";
&list("/");

$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;
}

小巧玲珑

看不懂
5555555555

xoandxo

嘿,原来讨论组的是你啊,学习

rickxbx

Can't call method "login" on an undefined value at ./test line 12.

tendy

你用的perl是什么版本的？
可能检查的太严格了
在login中把其他的参数都写上

这个脚本是递归列表ftp服务器的文件
可以用来作简易ftp搜索引擎