如何從perl中更改字符串中提取值

Question

我想從字符串中提取值（它會不斷變化）以供進一步處理。

該字符串是

TPSM seed 4339CD65 pass 1 x 0 x 1 errors 0 pid 179947 rulefilecycle 0 
TPSM seed 5339CD60 pass 1 x 9 x 2 errors 0 pid 179947 rulefilecycle 0 
TPSM seed 2339CD61 pass 1 x 101 x 5 errors 0 pid 179947 rulefilecycle 0 
TPSM seed 5339CD65 pass 1 x 19 x 6 errors 0 pid 179947 rulefilecycle 0 
TPSM seed 9339CD65 pass 1 x 100 x 7 errors 0 pid 179947 rulefilecycle 0 

我想後的形式1×一個X Ñ，其中i有興趣在 'n' 的值通提取值。 我試圖在perl中使用substr（），但由於數字不斷變化，我不能寫一些像substr（$ string，37,1）這樣的東西。

我怎麼能達到這個沒有substr（）以某種正則表達式的方式？

Answer 1

如何：

my ($n) = $string =~ /pass\s+\d+\s+x\s+\d+\s+x\s+(\d+)/; 

說明：

/   : Regex delimiter 
pass  : literally pass 
\s+\d+\s+ : 1 or more spaces, 1 or more digits, 1 or more spaces (ie. the first number) 
x   : literally x 
\s+\d+\s+ : 1 or more spaces, 1 or more digits, 1 or more spaces (ie. the second number) 
x   : literally x 
\s+  : 1 or more spaces 
(\d+)  : 1 or more digits, captured in group 1 (ie. the third number) 
/  : regex delimiter 

如果$string由正則表達式匹配，第三號在組1拍攝，則使用該組中的值填充變量$n。

正如評論所說，它可以簡化爲：

my ($n) = $string =~ /pass(?:\s+\d+\s+x){2}\s+(\d+)/; 

凡(?:...)是一個非捕獲組。

Answer 2

你可以試試這個：

while(<DATA>) 
{ 
    printf "%s\n", ($_=~m/\s*x\s*(\d+)\s*errors\s0/i)[0]; 
} 


__DATA__ 
TPSM seed 4339CD65 pass 1 x 0 x 1 errors 0 pid 179947 rulefilecycle 0 
TPSM seed 5339CD60 pass 1 x 9 x 2 errors 0 pid 179947 rulefilecycle 0 
TPSM seed 2339CD61 pass 1 x 101 x 5 errors 0 pid 179947 rulefilecycle 0 
TPSM seed 5339CD65 pass 1 x 19 x 6 errors 0 pid 179947 rulefilecycle 0 
TPSM seed 9339CD65 pass 1 x 100 x 7 errors 0 pid 179947 rulefilecycle 0 

Answer 3

你也使用split：

默認情況下，split將各執/\s+/，然後你就可以訪問所需的元素，你會爲一個數組：

use warnings; 
use strict; 
use feature qw/say /; 

while(<DATA>){ 
    chomp; 
    my $num = (split)[8]; 
    say $num; 
}