下载的zip包解压后，中文都变成了乱码，就写了个脚本重命名文件。
use strict; use warnings; use Cwd; sub main { my $dir = getcwd(); opendir my $DH, $dir or die "Can not open directory: $dir"; while (my $file = readdir $DH) { if ($file =~ /.*-(\d{3})_.*\.mp3$/) { rename $file, "$1.mp3"; } } } main()
Perl中获取当前目录有两种方法：
user Cwd; my $dir = getcwd;
或者
my $dir = $ENV{'PWD'};
前者的好处是跨平台。后者的好处是不用引入额外的包，但是Windows上不能用。
本文转自zdd博客园博客，原文链接：http://www.cnblogs.com/graphics/p/4919591.html，如需转载请自行联系原作者
