Skynet

---------- ---------- 我的新 blog : liukaiyi.cublog.cn ---------- ----------

  BlogJava :: 首页 :: 联系 :: 聚合  :: 管理
  112 Posts :: 1 Stories :: 49 Comments :: 0 Trackbacks
使用 File::Find
use File::Find;
use Time::Piece;


$timeOneDay = 86400;
$dayMultipler = 1;

$ByteCount = 0;
$fileAll = 0;
$fileJpg = 0;
$fileYes = 0;
$pathToTra = ".";

$gt = localtime;
$t1 = $gt->epoch;
find(
\&fileThumb, $pathToTra);
$gt = localtime;
$t2 = $gt->epoch;

print "Total KByte: ".($ByteCount/1024)."\n";
print "Total Scan:  ".$fileAll."\n";
print "Total Jpeg:  ".$fileJpg."\n";
print "Total Match: ".$fileYes."\n";
print "Total TimeCost: ".($t2-$t1)."\n";

sub fileThumb
{
   
$fileAll++;
   
if ((/.*\.jpg$/) )
   {   
      
$fileJpg++;
      
my $lt = 0;
      
$lt = localtime;

      
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks= stat($_)  or die "Unable to stat $_\n";           
      
if ( $mtime < ($lt->epoch - $timeOneDay*$dayMultipler) )
      {
         
print "[ $fileYes ]"."$File::Find::name";
         
print $size." ".$ctime." ".$lt->epoch."\n";
         
$ByteCount += $size;
         
$fileYes++;
      }
   }
}



 



整理 www.blogjava.net/Good-Game
posted on 2009-02-23 23:55 刘凯毅 阅读(411) 评论(0)  编辑  收藏 所属分类: perl

只有注册用户登录后才能发表评论。


网站导航: