用Perl实现linux命令tree的简化风格

#!/usr/bin/perl
=pod
用来显示指定目录的子目录，不显示目录格式诸如
2010.08.03.22.00.00之类的时间戳记目录及其子目录

使用格式为tree.pl dir
=cut

use Cwd;
use strict;

my $filter = "^\\d{4}(\\.\\d\\d){5}\$";#过滤
my $count = 0; #目录计数

&tree(0,$ARGV[0]);
print "Directory Number:\t$count\n";

sub tree
{
    my ($sep,$toScan) = @_;
    my $currdir = cwd;
    

    #按照上下级文件夹格式，缩进显示文件
    print "| " x $sep,"$sep--",$toScan,"\n";

    #打开目录，读取目录下的内容
    opendir my $dir,$toScan or die "unable to open dir!\n";
    my @names = readdir $dir;
    ++$count;
    closedir $dir;#注意关闭文件
    
    #进入该目录，以相对路径形式读取，其下目录
    chdir $toScan;

    foreach my $name (sort @names){
        #忽略这2个文件
        next if ($name eq '.');
        next if ($name eq '..');
        if ( -d $name ){#判断是否是目录

        #过滤指定目录
        next if( $name =~ /$filter/);
        

        #递归读取该目录下的内容，子文件夹缩进显示增加
        &tree($sep+1,$name);
        }
    }
    #回到原始目录，否则递归就失败了
    chdir $currdir;
}