Question

perl 怎么去掉文件名中的括号,".","(",")"

比如 文件名为 t e s t(1.2.3)去掉后为test123

Answer 1

$s = "t e s t(1.2.3)";
$s =~ s/[\s\.\(\)\,]+//g;
print $s; # test123

追问

你好，这样的文件名d743a-2-cam2-DADCO-SC.01800.10.TE(3.050).CATPart，怎么可以变成这样d743a-2-cam2-DADCO-SC0180010TE3050.CATPart 求大神解答

追答

$oFile= "d743a-2-cam2-DADCO-SC.01800.10.TE(3.050).CATPart";
@parts = split /\./, $oFile;
my $ext = pop @parts;
my $first = join "", @parts;
$first =~ s/[\()]//g;
$nFile = "$first.$ext";
print $nFile; #d743a-2-cam2-DADCO-SC0180010TE3050.CATPart
rename $oFile, $nFile or die "Can't rename ! $!";

建议你下次提问时, 最好直接使用直实资料, 因为处理方法可以很不一样的呢~

Good luck!

追问

我有好多这样的文件，要去掉小数点和空格还有括号。。。。。 = =！哭。。为啥我放进去不行

追答

1. 去小数点的话, 我之前写的就行了, 而主力其实都在这句

$first =~ s/[\()]//g;

如果你还有空格, 可以写成

$first =~ s/[\()\s]+//g;

2. 不行的话你要说明怎样不行, 是档名改出的格式不对, 还是改名改不了, 如果是又报甚麼错 ? 你在 rename() 中你又有没有改成正确的路径等等

追问

那我文件类型扩展名 .CATPart还在吧。我试了，文件名转换不起来，，，，，，，不过还是谢谢你了^.^

追答

扩展名会在的. 应该是你的文件路径不对了.

当你做 rename 的时候, 应该要写成类似

rename "C:/..../$oFile" , "C:/..../$nFile" ;

这样的

Answer 2

#!/usr/bin/perl
@filename=glob ("*.*(*.*");
foreach (@filename)
{
$newfile=$_;
$newfile=~s/[\(\.\)]//g;
rename $_,$newfile;
}