Question

perl如何抽取文本每行字串中指定的字串？

文本内容如下：我想取得字母C与字母F之间的字串，得出来的值应该是：2.015、.2500、.3
M48
METRIC
VER,1
FMAT,2
T01C2.0150F042B423S6H2000
T02C.2500F042B423S6H2000
T03C.3F042B423S6H2000
T04C.5000F042B423S6H2000
T05C1.0000F042B423S6H2000
T06C2.0000F042B423S6H2000
DETECT,ON
ATC,ON
%
T1
X002000Y148044
X002000Y002001
X007001Y002001

Answer 1

#!/usr/bin/env perl

my $file="demo.txt";

open(FL,"$file") or die "open $file err!";

while(<FL>){
chomp;
if(/C(.*?)F/){
print "$1\n";
}

}

close(FL);

执行：perl test.pl
2.0150

.2500
.3
.5000
1.0000
2.0000

追问

如果只提取C后面的字串程序该怎么？

追答

上面的if(/C(.*?)F/)改为if(/C(.*)/)就可以了