#!/usr/bin/perl
use File::Find;
use File::Copy;
use File::Basename;
 
$HOME_dir = `echo \$HOME`;
chomp $HOME_dir; #刪去換行符
$dst_dir = $HOME_dir."/Desktop/tmp/"; #目的路徑
$pic_dir = $HOME_dir."/magic/dir"; #圖片檔目錄
$filename = "list2.txt";
#-- 遞迴找檔案 --
sub find_file {
    $dir = $File::Find::dir;
    $fname = $File::Find::name;
    $name = $_;
    $basename = fileparse($fname, qr/\..*/);
    next if ($name =~ /^\./);
    next if (-d $name);
    $num = $basename;
    if (exists ($HASH{$num})) {    
        print "find!!\n";
        $newfile = $dst_dir.$name;
        print "File: $fname\n";
        print "Dst:$newfile\n";
        if (-d $dst_dir) {
            copy ($fname, $newfile);
        } else {
            mkdir($dst_dir);
            copy ($fname, $newfile);
        } 
    }
} #sub END
sub print_hash_data {
    print "-----Print HASH Data-----\n";
    while(($key, $value) = each %HASH) {
        print "$key => $value\n";
    } 
}
sub print_file_count {
    $command = "find $pic_dir -type f | wc -l";
    $count = `$command`;
    print "Total find files:$count\n";
}
#測試tmp目錄是否存在,如果不在就建立目錄
if (!-d $dst_dir) {
    mkdir($dst_dir);
}
$line_num = 1;
open FILE, $filename or die "Can't open $filename";
while (<FILE>) {
    chomp;
    print "Part:$_\n";
    $p_num = $_;
    $HASH{$p_num} = $line_num;
    $line_num ++;
}
print_hash_data();
find (\&find_file, $pic_dir); #執行遞迴找圖片檔案
print_file_count();
 

IyEvdXNyL2Jpbi9wZXJsCnVzZSBGaWxlOjpGaW5kOwp1c2UgRmlsZTo6Q29weTsKdXNlIEZpbGU6OkJhc2VuYW1lOwoKJEhPTUVfZGlyID0gYGVjaG8gXCRIT01FYDsKY2hvbXAgJEhPTUVfZGlyOyAj5Yiq5Y675o+b6KGM56ymCiRkc3RfZGlyID0gJEhPTUVfZGlyLiIvRGVza3RvcC90bXAvIjsgI+ebrueahOi3r+W+kQokcGljX2RpciA9ICRIT01FX2Rpci4iL21hZ2ljL2RpciI7ICPlnJbniYfmqpTnm67pjIQKJGZpbGVuYW1lID0gImxpc3QyLnR4dCI7CiMtLSDpgZ7ov7Tmib7mqpTmoYggLS0Kc3ViIGZpbmRfZmlsZSB7CiAgICAkZGlyID0gJEZpbGU6OkZpbmQ6OmRpcjsKICAgICRmbmFtZSA9ICRGaWxlOjpGaW5kOjpuYW1lOwogICAgJG5hbWUgPSAkXzsKICAgICRiYXNlbmFtZSA9IGZpbGVwYXJzZSgkZm5hbWUsIHFyL1wuLiovKTsKICAgIG5leHQgaWYgKCRuYW1lID1+IC9eXC4vKTsKICAgIG5leHQgaWYgKC1kICRuYW1lKTsKICAgICRudW0gPSAkYmFzZW5hbWU7CiAgICBpZiAoZXhpc3RzICgkSEFTSHskbnVtfSkpIHsgICAgCiAgICAgICAgcHJpbnQgImZpbmQhIVxuIjsKICAgICAgICAkbmV3ZmlsZSA9ICRkc3RfZGlyLiRuYW1lOwogICAgICAgIHByaW50ICJGaWxlOiAkZm5hbWVcbiI7CiAgICAgICAgcHJpbnQgIkRzdDokbmV3ZmlsZVxuIjsKICAgICAgICBpZiAoLWQgJGRzdF9kaXIpIHsKICAgICAgICAgICAgY29weSAoJGZuYW1lLCAkbmV3ZmlsZSk7CiAgICAgICAgfSBlbHNlIHsKICAgICAgICAgICAgbWtkaXIoJGRzdF9kaXIpOwogICAgICAgICAgICBjb3B5ICgkZm5hbWUsICRuZXdmaWxlKTsKICAgICAgICB9IAogICAgfQp9ICNzdWIgRU5ECnN1YiBwcmludF9oYXNoX2RhdGEgewogICAgcHJpbnQgIi0tLS0tUHJpbnQgSEFTSCBEYXRhLS0tLS1cbiI7CiAgICB3aGlsZSgoJGtleSwgJHZhbHVlKSA9IGVhY2ggJUhBU0gpIHsKICAgICAgICBwcmludCAiJGtleSA9PiAkdmFsdWVcbiI7CiAgICB9IAp9CnN1YiBwcmludF9maWxlX2NvdW50IHsKICAgICRjb21tYW5kID0gImZpbmQgJHBpY19kaXIgLXR5cGUgZiB8IHdjIC1sIjsKICAgICRjb3VudCA9IGAkY29tbWFuZGA7CiAgICBwcmludCAiVG90YWwgZmluZCBmaWxlczokY291bnRcbiI7Cn0KI+a4rOippnRtcOebrumMhOaYr+WQpuWtmOWcqCzlpoLmnpzkuI3lnKjlsLHlu7rnq4vnm67pjIQKaWYgKCEtZCAkZHN0X2RpcikgewogICAgbWtkaXIoJGRzdF9kaXIpOwp9CiRsaW5lX251bSA9IDE7Cm9wZW4gRklMRSwgJGZpbGVuYW1lIG9yIGRpZSAiQ2FuJ3Qgb3BlbiAkZmlsZW5hbWUiOwp3aGlsZSAoPEZJTEU+KSB7CiAgICBjaG9tcDsKICAgIHByaW50ICJQYXJ0OiRfXG4iOwogICAgJHBfbnVtID0gJF87CiAgICAkSEFTSHskcF9udW19ID0gJGxpbmVfbnVtOwogICAgJGxpbmVfbnVtICsrOwp9CnByaW50X2hhc2hfZGF0YSgpOwpmaW5kIChcJmZpbmRfZmlsZSwgJHBpY19kaXIpOyAj5Z+36KGM6YGe6L+05om+5ZyW54mH5qqU5qGICnByaW50X2ZpbGVfY291bnQoKTsK