可以试一下：
perl -pne "s/\..+//" old.txt > new.txt
或者
perl -pne 's/(.+)\.(.+)/$1/' old.txt > new.txt
或者
perl -lne 'print((split /\./)[0])' old.txt > new.txt
方法很多。
All roads lead to Rome ！
#! /usr/bin/perl -w
open(IN,"
while(
print $_; ###这是原始的
if($_ =~ /(.*)\.(.*)/) {
print "$1\n";###点之前的
print "$2\n";###点之后的,\n是换行.
}
}
具体问题具体分析咯~~~
perl -pne 's/[^\d\s]+//g' old.txt > new.txt 就可以了。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024