#!/usr/bin/perl
use File::Find;
use File::Basename;
use File::Copy;
 
$HOME_dir = `echo \$HOME`;
chomp $HOME_dir; #刪去換行符
$dst_dir = $HOME_dir."/Desktop/tmp/"; #目的路徑
$pic_dir = $HOME_dir."/magic/dir"; #圖片檔目錄
$text_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 ($num ne " ") {
        $HASH{$num} = $fname;
    }
}
#印出HASH內容(用於驗證)
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目錄是否存在,如果不在就建立目錄
sub test_tmp_dir {
    mkdir($dst_dir) unless (-d $dst_dir);
}
#比對 text.txt 和HASH 是否符合並copy到tmp目錄 
sub compare_and_copy {
    open FILE, $text_filename or die "Can't open $text_filename";
    while (<FILE>) {
        chomp;
        print "Part Num:$_\n";
        $p_num = $_;
        if (exists ($HASH{$p_num})) {
            $pic_name = $HASH{$p_num};
            $pic_basename = basename($pic_name);
            print "Pic name:$pic_basename\n";
            $newfile = $dst_dir.$pic_basename;
            print "\tCopy to:$newfile\n";
            copy ($pic_name, $newfile);
        } else {
            print "\t---No math!---\n";
        }
    }
}
find(\&find_file, $pic_dir); #執行遞迴
#print_hash_data();
test_tmp_dir();
compare_and_copy();
print_file_count();
 

IyEvdXNyL2Jpbi9wZXJsCnVzZSBGaWxlOjpGaW5kOwp1c2UgRmlsZTo6QmFzZW5hbWU7CnVzZSBGaWxlOjpDb3B5OwoKJEhPTUVfZGlyID0gYGVjaG8gXCRIT01FYDsKY2hvbXAgJEhPTUVfZGlyOyAj5Yiq5Y675o+b6KGM56ymCiRkc3RfZGlyID0gJEhPTUVfZGlyLiIvRGVza3RvcC90bXAvIjsgI+ebrueahOi3r+W+kQokcGljX2RpciA9ICRIT01FX2Rpci4iL21hZ2ljL2RpciI7ICPlnJbniYfmqpTnm67pjIQKJHRleHRfZmlsZW5hbWUgPSAibGlzdDIudHh0IjsKCnN1YiBmaW5kX2ZpbGUgewogICAgJGRpciA9ICRGaWxlOjpGaW5kOjpkaXI7CiAgICAkZm5hbWUgPSAkRmlsZTo6RmluZDo6bmFtZTsKICAgICRuYW1lID0gJF87CiAgICAkYmFzZW5hbWUgPSBmaWxlcGFyc2UoJGZuYW1lLCBxci9cLi4qLyk7CiAgICBuZXh0IGlmICgkbmFtZSA9fiAvXlwuLyk7CiAgICBuZXh0IGlmICgtZCAkbmFtZSk7CiAgICAkbnVtID0gJGJhc2VuYW1lOwogICAgaWYgKCRudW0gbmUgIiAiKSB7CiAgICAgICAgJEhBU0h7JG51bX0gPSAkZm5hbWU7CiAgICB9Cn0KI+WNsOWHukhBU0jlhaflrrko55So5pa86amX6K2JKQpzdWIgcHJpbnRfaGFzaF9kYXRhIHsKICAgIHByaW50ICItLS0tLVByaW50IEhBU0ggRGF0YS0tLS0tXG4iOwogICAgd2hpbGUoKCRrZXksICR2YWx1ZSkgPSBlYWNoICVIQVNIKSB7CiAgICAgICAgcHJpbnQgIiRrZXkgPT4gJHZhbHVlXG4iOwogICAgfSAKfQpzdWIgcHJpbnRfZmlsZV9jb3VudCB7CiAgICAkY29tbWFuZCA9ICJmaW5kICRwaWNfZGlyIC10eXBlIGYgfCB3YyAtbCI7CiAgICAkY291bnQgPSBgJGNvbW1hbmRgOwogICAgcHJpbnQgIlRvdGFsIGZpbmQgZmlsZXM6JGNvdW50XG4iOwp9CiPmuKzoqaZ0bXDnm67pjITmmK/lkKblrZjlnKgs5aaC5p6c5LiN5Zyo5bCx5bu656uL55uu6YyECnN1YiB0ZXN0X3RtcF9kaXIgewogICAgbWtkaXIoJGRzdF9kaXIpIHVubGVzcyAoLWQgJGRzdF9kaXIpOwp9CiPmr5TlsI0gdGV4dC50eHQg5ZKMSEFTSCDmmK/lkKbnrKblkIjkuKZjb3B55YiwdG1w55uu6YyEIApzdWIgY29tcGFyZV9hbmRfY29weSB7CiAgICBvcGVuIEZJTEUsICR0ZXh0X2ZpbGVuYW1lIG9yIGRpZSAiQ2FuJ3Qgb3BlbiAkdGV4dF9maWxlbmFtZSI7CiAgICB3aGlsZSAoPEZJTEU+KSB7CiAgICAgICAgY2hvbXA7CiAgICAgICAgcHJpbnQgIlBhcnQgTnVtOiRfXG4iOwogICAgICAgICRwX251bSA9ICRfOwogICAgICAgIGlmIChleGlzdHMgKCRIQVNIeyRwX251bX0pKSB7CiAgICAgICAgICAgICRwaWNfbmFtZSA9ICRIQVNIeyRwX251bX07CiAgICAgICAgICAgICRwaWNfYmFzZW5hbWUgPSBiYXNlbmFtZSgkcGljX25hbWUpOwogICAgICAgICAgICBwcmludCAiUGljIG5hbWU6JHBpY19iYXNlbmFtZVxuIjsKICAgICAgICAgICAgJG5ld2ZpbGUgPSAkZHN0X2Rpci4kcGljX2Jhc2VuYW1lOwogICAgICAgICAgICBwcmludCAiXHRDb3B5IHRvOiRuZXdmaWxlXG4iOwogICAgICAgICAgICBjb3B5ICgkcGljX25hbWUsICRuZXdmaWxlKTsKICAgICAgICB9IGVsc2UgewogICAgICAgICAgICBwcmludCAiXHQtLS1ObyBtYXRoIS0tLVxuIjsKICAgICAgICB9CiAgICB9Cn0KZmluZChcJmZpbmRfZmlsZSwgJHBpY19kaXIpOyAj5Z+36KGM6YGe6L+0CiNwcmludF9oYXNoX2RhdGEoKTsKdGVzdF90bXBfZGlyKCk7CmNvbXBhcmVfYW5kX2NvcHkoKTsKcHJpbnRfZmlsZV9jb3VudCgpOwo=