perl学习--文件copy

#复制近期文件到另一个文件夹中#---------------------------------------------------------use strict;use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);my $dir      = "//BIGNOTEBOOK/test1/";my $back_dir = "//BIGNOTEBOOK/test2/";opendir DH, $dir or die "cannot chdir to $dir : $!";for my $file ( readdir DH ) {    ( $file eq '.' )  and next;    ( $file eq '..' ) and next;    #   print $dir.$file."\n";    #print "当前时间".time()."\n";    #print "文件创建时间".((stat($dir.$file))[10])."\n";    if (time()-(stat($dir.$file))[10]<1000000 ) { #这里是当前时间减去判断文件创建时间，如果小于100000s则判断成功        print "pass！！！".$dir.$file."\n";        if ( -d $dir.$file ) {            print $dir.$file."文件夹可以copy\n";            $File::Copy::Recursive::CPRFComp = 1;            dircopy( $dir.$file, $back_dir ) or die $!;        }        else {            print $dir. $file . "文件可以copy\n";            fcopy( $dir.$file, $back_dir ) or die $!;        }    }}closedir DH;#关于模块“File::Copy::Recursive”的用法请参考CPAN。#(stat($dir.$file))[10])，获取文件的创建时间。#$File::Copy::Recursive::CPRFComp = 1，将保持目录结构不变。