Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2153989
  • 博文数量: 227
  • 博客积分: 10521
  • 博客等级: 上将
  • 技术积分: 3452
  • 用 户 组: 普通用户
  • 注册时间: 2006-10-20 14:59
个人简介

低调做人,高调做事!

文章分类

全部博文(227)

文章存档

2013年(4)

2012年(8)

2011年(16)

2010年(24)

2009年(92)

2008年(83)

分类: LINUX

2008-12-12 23:39:27

perl下的File::Find模块具有shell下的find命令的功能,下面具体看2个例子:

1,找出某个目录下面以*.old结尾的文件

#!/usr/bin/perl -w

use strict;
use File::Find;

my $path = '/home/test/';
sub wanted {
    if ( -f $File::Find::name ) {
        if ( $File::Find::name =~ /\.old$/ ) {
            print "$File::Find::name\n";

        }
    }

}

find( \&wanted, $path );


2,找出某个目录下面几天前的文件

my $path = '/home/test/';
opendir DH, $path or die "cannot chdir to $path : $!";

for my $file (readdir DH) {
    next if $file eq "." or $file eq "..";
    next if $file =~ /^\./;
    if (time() - (stat($path.$file))[8] > (60*60*24*7)) {
        print $path.$file."\n";
    }
}
closedir DH;
阅读(3067) | 评论(0) | 转发(1) |
给主人留下些什么吧!~~