Question

perl实现替换文件名中的方括号里面的内容

如图中所示的电影名都带网址，我想编个脚本去把网址加方括号的部分去掉，死活不成功，挫败感啊
#! /usr/bin/perl
chdir "Movie" or die "Cannot change dir: $!";
my @files=glob "*";
foreach (@files) {
s/\[\w+\]//g;
}
求指点

Answer 1

\w+不能匹配原点.，可以使用\S+或者.*?来替代你的\w+

追问

至少匹配这是没问题了，还是不行，可能还是得用rename?

追答

my($fname,$newname);

foreach $fname (@files) {
$newname=$fname;
$newname=~s/\[\w+\]//g;
rename($fname,$newname);
}

追问

终于成功了
foreach my $file(glob "*") {
my $newfile=$file;
$newfile=~s/\[\S+\].?//g;
rename $file,$newfile;
}
谢了！