22 1 月 2013

Perl程式把最新檔案移到其它目錄

作者:Ben哥|發布日期:2009/03/27

如何使用 Perl 判別資料夾內最新的檔案並移動到另一個資料夾?

#!/usr/bin/perl

use File::Copy;

if ( @ARGV != 2 )
{
print "Usage: $0 \n\n";
exit 1;
}

my $latest_file = '';

opendir( DIR, "$ARGV[ 0 ]" );

while ( $file = readdir( DIR ) )
{

next if $file =~ /^\.\.?$/;
$file_time{ $file } = -C $file;
foreach ( keys %file_time )
{

$latest_file = $file if -C $file < $file_time{ $_ };
}

}

move ($latest_file, "$ARGV[ 1 ]" );