请教：文教查找

yinsou

UID: 13044
帖子: 45
积分: 103
在线时间: 3 小时

1^# yinsou 发表于 2007-11-18 13:19

请教：文教查找

各位高手，我想请教用perl查找3天前的文件，然后放到一个数组里，该怎么处理，请指教！

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

2^# Lonki 发表于 2007-11-18 14:19

use File::Find;

创建时间? 修改时间? 访问时间?

yinsou

UID: 13044
帖子: 45
积分: 103
在线时间: 3 小时

3^# yinsou 发表于 2007-11-18 14:25

新手，能具体点吗，谢谢。

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

4^# Lonki 发表于 2007-11-18 14:28

多新?

http://search.cpan.org/~nwclark/perl-5.8.8/lib/File/Find.pm

第二次问: 创建时间? 修改时间? 访问时间?

yinsou

UID: 13044
帖子: 45
积分: 103
在线时间: 3 小时

5^# yinsou 发表于 2007-11-18 14:29

谢谢！

yinsou

UID: 13044
帖子: 45
积分: 103
在线时间: 3 小时

6^# yinsou 发表于 2007-11-18 14:31

不好意思，是创建时间

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

7^# Lonki 发表于 2007-11-19 10:18

仅供参考, 也许-C无法很方便的获取你要的时间.

use strict;
use warnings;
use File::Find;

my $Dir_Name  = 'c:\test';
my @File_List = ();

find(\&find_callback, $Dir_Name);

sub find_callback {
    if (3 == int(-C $File::Find::name)) {
        push @File_List, $File::Find::name;
    }
}

map { print "$_\n" } @File_List;