Question

perl语言怎么去掉文件名中的小数点，但是要保留扩展名前面的小数点

比如 te.fasf.fgseg.g.part 转化成 tefasffgsegg.part ，求大神

Answer 1

这个用正则表达式替换感觉比较麻烦，不如直接用split根据.分割成一个数组，然后把前面的部分组合起来，最后接上".扩展名"。

#!/usr/bin/perl
my $str="te.fasf.fgseg.g.part";
my @items=split('\.',$str);
my $last=pop(@items);
if (@items>1){
my $newstr=join('',@items)."\.$last";
print "$newstr\n";
}else{
print "$str\n";
}