Chinaunix首页 | 论坛 | 博客
  • 博客访问: 153516
  • 博文数量: 25
  • 博客积分: 2446
  • 博客等级: 大尉
  • 技术积分: 258
  • 用 户 组: 普通用户
  • 注册时间: 2009-12-18 21:19
文章分类

全部博文(25)

文章存档

2011年(1)

2010年(20)

2009年(4)

分类:

2011-01-05 21:01:38

#!/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);
          }

      }
  }
}

阅读(1948) | 评论(1) | 转发(1) |
0

上一篇:系统 缓冲

下一篇:没有了

给主人留下些什么吧!~~

chinaunix网友2011-01-06 14:55:51

很好的, 收藏了 推荐一个博客,提供很多免费软件编程电子书下载: http://free-ebooks.appspot.com