台灣富捷 IT 培訓

富捷 IT 培訓不斷的在市場調查”人才需求”及為學員尋求”最佳工作機會”的前提下提供了一系列的教育課程；不僅著重於科技與知識上的養成，更強調科技人的邏輯思考、分析能力與創造力。由旅美學人著眼於美國教育的優點，再融合台灣教育的方式，創造出與市場上獨一無二的教學方式；所有教師均受過嚴格的測試及教育以確保客戶的權益及奇科的高教學品質，我們本著良心及高度的熱忱，希望我們的客戶不僅能學到所需的知識，更能學到書本以外的觀念及找到未來發展的方向。

部落格全站分類：數位生活

Sep 01 Tue 2009 09:33
如何使用 Perl 判別資料夾內最新的檔案及當有新的檔案進來時，移動到另一個資料夾？

#!/usr/bin/perl

use File::Copy;

if ( @ARGV != 2 )
{
print "Usage: $0 <from_directory> <to_directory> \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 ]" );

來源：奇科電腦Ben老師 http://www.geego.com.tw