遍历文件夹的方法比较。

QUOTE:

原帖由 perlpg 于 2007-3-11 00:05 发表


地上的大多可能是C写的，登月的基本就是汇编写的了。前一段时间看了一段新闻，说美国宇航局专门派人到某电子废物处理中心买了一货柜旧电子产品，目的就是拆其中的8086来备用，因为现有的航天飞机和各种型号的 ...

QUOTE:

原帖由 shhgs 于 2007-3-11 23:24 发表
open DIRS, "find . -type d | ";

CODE:

sub scanDir {
    my $dir = shift;
    if (-d $dir) {
        # perldoc -f opendir
        # If DIRHANDLE is an undefined scalar variable (or array or hash
        # element), the variable is assigned a reference to a new anonymous
        # dirhandle.
        my $DH;
        opendir $DH, $dir or warn "Couldn't open directory $dir: $!;
        while (my $file = readdir $DH) {
            next if $file eq '.' || $file eq '..';
            my $fullFileName = $dir . '/' . $file;
            # process dir/file
            print $fullFileName, "\n";
            # recursive
            scanDir($fullFileName);
        }
    }
}

scanDir($ARGV[0] ? $ARGV[0] : '.');