初学Perl 用Perl解决了自己的小问题

问题描述：用扫描仪扫描的文件都创立一个文件夹，现在要把文件都提取出来。嘿嘿，我是菜鸟，请多指教。

测试环境：sygwin 

#!/usr/bin/perl -w


$files_name = "/home/xuan/testdir/QUST";
chdir $files_name;


my @files = glob "*";
foreach my $single_file (@files){


next unless $single_file =~ /^2014/;
my $file_name = $files_name . "/" . $single_file;
chdir $file_name;
my @file = glob "*";

foreach (@file){
$photo_path = $files_name ."/" . $_;
rename $_,$photo_path;
}

chdir $files_name;
rmdir $single_file;
print "$file_name\n";
}