xmove.pl

t0nsha用手机拍了很多照片：-）都保存在一个叫Images的文件夹下，照片根据拍摄日期分别存放在不同的子文件夹中，由于时间很久了，图片也就零零散散的散布在各个角落里，于是看起来就麻烦了，看两张就得切换好几次目录!-_- t0nsha没这个耐心，想想要是能把Images文件夹下所有子文件夹里的图片都移到Images文件夹，看起来不就方便多了吗？恰好上星期被抓去学Perl，何不自己动手丰衣足食，还能练练手呢……

#!/usr/bin/perl #xmove.pl, created by t0nsha@20090709, version: 0.01; #used for move all files in one directory to another. use warnings; use File::Find qw(find); use File::Copy qw(move); use File::Spec::Functions qw(catfile rel2abs); use Cwd qw(getcwd); sub move_file { if ( -f $_ ) { $dst_fil = catfile( $dst_dir, $_ ); if ( $override_all == 0 and $skip_all == 0 ) { if ( -e $dst_fil ) { while (1) { print "File $dst_fil has already existed! Override This(o)/Override All(oa)/Skip This(s)/Skip All(sa)/Exit(e):"; chomp( $ose = lc(<STDIN>) ); if ( $ose eq "o" ) { $move_this = 1; last; } elsif ( $ose eq "oa" ) { $override_all = 1; last; } elsif ( $ose eq "s" ) { $move_this = 0; last; } elsif ( $ose eq "sa" ) { $skip_all = 1; last; } elsif ( $ose eq "e" ) { exit 0; } else { next; } } } } $src_fil = rel2abs($_); if ( ( -e $dst_fil ) and ( $move_this == 0 or $skip_all == 1 ) ) { print "$src_fil ignored!/n"; } else { print "$src_fil" . " --> " . "$dst_fil/n"; move( $_, $dst_fil ); $moved_cnt++; } $total_cnt++; } } $move_this = 0; $override_all = 0; $skip_all = 0; $moved_cnt = 0; $total_cnt = 0; $src_dir = rel2abs( $ARGV[0] || getcwd ); $dst_dir = rel2abs( $ARGV[1] || getcwd ); print "Move all files in $src_dir to $dst_dir (y/n)?"; chomp( $yn = <STDIN> ); exit 0 if ( lc($yn) ne "y" ); find( /&move_file, $src_dir ); print "Total $total_cnt files found inside $src_dir, $moved_cnt moved to $dst_dir.";

哈哈，现在t0nsha终于可以好好地回味一番了。