Question

怎么用perl读取txt文件里的所有数字并保存？

比如，我有一个old.txt的文件，每行是一个文件名，例如：
0002.xml
0004.xml
0020.xml
0022.xml
0031.xml
0043.xml
0049.xml
0073.xml
0074.xml
0082.xml
0088.xml
0089.xml
我需要用perl来读取，然后去除里面所有的后缀".xml"，剩下数字就可以，然后自动保存。
需要的结果是：
0002
0004
0020
0022
0031
0043
0049
0073
0074
0082
0088
0089
。。。

而且要适用于删除所有后缀名称的，谢谢解答~

Answer 1

可以试一下：
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 ！

Answer 2

#! /usr/bin/perl -w

open(IN,"<old.txt");

while(<IN>) {

print $_; ###这是原始的

if($_ =~ /(.*)\.(.*)/) {

print "$1\n";###点之前的
print "$2\n";###点之后的,\n是换行.
}

}

具体问题具体分析咯~~~

Answer 3

perl -pne 's/[^\d\s]+//g' old.txt > new.txt 就可以了。