本文共 2297 字，大约阅读时间需要 7 分钟。

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终于可以好好地回味一番了。

转载地址：http://sztai.baihongyu.com/