perl 文件遍历

首页 | 新闻 | 交流 | 问吧 | 文档 | 手册 | 下载 | 博客

perl 文件遍历

作者:  时间: 2011-01-05
#!/usr/bin/perl
use strict;
my $dir = $ARGV[0];

&fun ($dir);

sub
fun ()
{
  my $current = shift;
  opendir DIR, $current or die "can not open dir";
  my @ list = readdir DIR;
  foreach my $item (@list)
  {
    if (-f $current."/".$item)
      {
        print $item." is a file\n";
      }
    else
      {
        if (-d $current."/".$item && $item ! ~/^[\.]{1, 2}/)
          {
            print $item." is a directory\n";
            &fun ($current."/".$item);
          }

      }
  }
}