ftp内部文件搜索(一)……遍历并导出

#!/usr/bin/perl -W
#
# File: output.pl
# Author: 1jjk

#mail:[email protected]
# License: GPL-2
use strict;
use warnings;
use File::Find;

print "finding now ,please wait..........\n";
my ($size, $dircnt, $filecnt) = (0, 0, 0);
open(II,">>qq.txt");
sub process {
    my $file = $File::Find::name;
    print II $file,"\n";
    if (-d $file) {
        $dircnt++;
    }
    else {
        $filecnt++;
        $size += -s $file;
    }
}

find(\&process , '/ftp');
print "$filecnt files, $dircnt directory. $size bytes.\n";
close(II);