初学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";

}