我试图从文件中获取子字符串,但是我只能获取一个子字符串,但无法获取第二个子字符串。
这是行示例:
<testPoolResult name="Pool" loop="1" currency="false" randomized="false" startTime="01.01.70_02:10:059""01.01.70_02:11:000" duration="0">
<testCase name="Test" status="SUCCESS" iteration="1" startTime="01.01.70_02:10:059" endTime="01.01.70_02:10:059" duration="0">
<testAction name="pend" status="SUCCESS" iteration="1" startTime="01.01.70_02:10:059" endTime="01.01.70_02:10:059" duration="0"/>
我需要解析其中的行,testCase
并提取测试名称和测试状态。
这是我的代码:
use warnings;
open( my $fh, "<", "test.txt" ) or die "can not open the file $! \n";
while ( my $line = <$fh> ) {
if ( $line =~ /testCase\s+name[=""](.+?)\s+status[=""](.+?)/x ) {
print $1. " " . $2 . "\n";
}
}
谁能帮我 ?
替换此行:
if($line =~ /testCase\s+name[=""](.+?)\s+status[=""](.+?)/x)
和
if ($line =~ /testCase\s+name="(.+?)"\s+status="(.+?)"/x)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句