perl 数组匹配

Question

代码如下

open(LINE,"d:/top.txt");
while (<LINE>){if(m/(Total copper :)(.*)(sq\/mm)/){$top = $2};}
close LINE;

$T = sprintf("%.2f",$top / 10000)

top.txt内容如下

Total copper : 25053.227 sq/mm

为什么最后输出的是00.0

while (<LINE>){if(m/(Total copper :)(.*)(sq\/mm)/){$top = $2};}
这句不是已经捕获了25053.227了吗？

Answer 1

(?<=<item>).*?(?=</item>)这里使用宽度断言和勉强模式重复。(?<=<item>)表示匹配内容的左边满足表达式<item>，(?=</item>)表示匹配内容的右边满足表达式<\item>，.*? 表示是勉强模式匹配（即匹配最少的内容），之所以使用勉强模式匹配是因为，如果使用贪婪模式则会出现和您的表达式出现的同样问题。但这个表达式也存在有bug，即如果出现如下的：<?xml version="1.0" encoding="UTF-8"?><rss><channel><title>TITLE</title><link>LINK</link><item><title>T1</title><link>L1</item></link><description>D1</description></item><item><title>T2</title><link>L2</link><description>D2</description></item></channel></rss>则匹配就不准确了，不过考虑到xml文档格式的严谨，应不会有这种情况出现，故就不对表达式再进行优化了。是可以将匹配的结果读取到数组中去的，不知您使用的何种语言，故无法给出代码。