bagatelles

# 將選好的JPEG檔複製到NEF目錄，好的JPEG檔複製到NEF目錄，執行後將JPEG
# 檔移到JPEG目錄，沒有配對的NEF移到_del目錄，配對的NEF留在原目錄。
use strict;
use File::Copy;
use File::Basename;
use Time::HiRes qw(gettimeofday);

my $t0 = gettimeofday;
my $DestRAW  = "NEF/";
my $DestJPEG = "JPEG/";
my $FileName;
my $RAWExtName = ".NEF";
my @fileJPG = glob "*.JPG";
my @fileRAW = glob "*.NEF";

for(@fileRAW){
    print $_."\n";
    #move($FileName, '_del/'.$FileName) if(-e $_);
}
print "\n";
mkdir $DestRAW;
mkdir $DestJPEG;
mkdir '_del/';
for (@fileJPG){
    $FileName = fileparse($_, qr/\.[^.]*/).$RAWExtName;
    if (-e $FileName) #if NEF opened OK, move JPEG and NEF files.
    {
        #print "Move ".$FileName." to ".$DestDir."\t";
        move($FileName, $DestRAW.$FileName) ;#or die "Failed to move ".$FileName.".";
        #print "Move ".$_." to ".$DestDir."\t";
        move($_, $DestJPEG.$_) ;#or die "Failed to move ".$_.".";
    }
}

for(glob "*.NEF"){
    move($_, '_del/'.$_) if(-e $_);
}

chdir "NEF/";
for(glob "*.NEF"){
    move($_, '../'.$_) if(-e $_);
}
chdir "..";
rmdir $DestRAW;


my $t1 = gettimeofday;
print "Time: ".($t1 - $t0)."sec";