File::Find与文件时间比较的例子

 #!c:/perl/bin/perl -w

use strict;
use File::Find;

my $file_num=0;

sub l_time {
    my ( $__in_time ) = @_;
    my ($__now_time);
    eval{
    my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
      localtime ($__in_time);
    #$year += 1900 if ( $year >= 100 );
    $year += 1900;
    $mon++;
    $__now_time = sprintf( "%4s-%02s-%02s %02s:%02s:%02s",
        $year, $mon, $mday, $hour, $min, $sec );
    } || die print "获取时间错误:$!";

    return $__now_time;
}

#按照路径进行查找
#my $a=find(/&wanted,'d:/');
#首先查找当前目录下文件再查找子目录下文件
my $a=finddepth(/&wanted,'d:/');
sub wanted {   
    if ( $File::Find::name =~ m/T_File_Find/ ){
        $file_num++ ;
        print '$_=',"$_/n";
        print '$File::Find::dir=',"$File::Find::dir/n";
        print '$File::Find::name=',"$File::Find::name/n";
        #print '$File::Find::fullname=',"$File::Find::fullname/n";
       
        my $file_size = -s $File::Find::name;
        print "文件大小：$file_size/n";
       
        my $mtime = -M $File::Find::name;
        print "文件修改时间为:$mtime/n";
        my $mtime1 = localtime $mtime;
        print "文件修改时间为:$mtime1/n";
        my $mtime2 = &l_time($mtime);
        print "文件修改时间为:$mtime2/n";
       
        my $atime = -A $File::Find::name;
        print "文件访问时间为:$atime/n";
        my $atime1 = localtime $atime;
        print "文件访问时间为:$atime1/n";
        my $atime2 = &l_time($atime);
        print "文件访问时间为:$atime2/n";
       
        my $ctime = -C $File::Find::name;
        print "文件索引节点时间为:$ctime/n";
        my $ctime1 = localtime $ctime;
        print "文件索引节点时间为:$ctime1/n";
        my $ctime2 = &l_time($ctime);
        print "文件索引节点时间为:$ctime2/n";
       
        print "========================/n";
       
        print time,"/n";
        print &l_time(time),"/n";
        print &l_time(time-$mtime),"/n";
       
        print "========================/n";
        print &l_time(time-$mtime*86400),"/n";
        print &l_time(time-$atime*86400),"/n";
        print &l_time(time-$ctime*86400),"/n";
    }
   
    return $file_num if ($file_num == 1);
   
}

print "/$a=$a/n";