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