小编use*_*706的帖子

我应该使用什么Perl脚本才能将文件名中的前8个字符更改为全部大写,而不是将整个文件名更改为全部大写的脚本？

这是我如何设置它:

#!/usr/bin/perl

chdir "directory path";
#@files = `ls *mw`;
@files = `ls | grep mw`;
chomp @files;

foreach $oldname (@files) {
  $newname = $oldname;
  $newname =~ s/mw//;
  print "$oldname -> $newname\n";
  rename("$oldname","$newname");
}