[PERL] 貪婪和不貪婪比對 non-greedy match @新精讚

[PERL] 貪婪和不貪婪比對 non-greedy match

“ 預設perl是貪婪比對，如果要取得不貪婪的比對，要怎麼做？ ”

分享完整連結 //n.sfs.tw/m10698

分享連結 [PERL] 貪婪和不貪婪比對 non-greedy match@精讚

(文章歡迎轉載，請尊重版權註明連結來源)

2021-01-05 14:37:10 By 張○○

預設perl是貪婪比對，如果要取得不貪婪的比對，該怎麼做？

例如原資料

$s= "<v>4.0927331783e+01</v><v>1.1238305389e+01</v><v>2.2222222222e-05</v><v>4.9085522333e-01</v><v>1.0917031488e+01</v><v>3.1551812477e-01</v><v>2.3592746401e-01</v><v>3.2864064230e-01</v><v>0.0000000000e+00</v><v>1.3289184201e-02</v><v>0.0000000000e+00</v><v>2.7655057217e-01</v>";

如果單純想取第一筆的值，使用 =~ 運算子

print $1 if $s=~ /<v>(.*)<\/v>/;

這樣取到的 $1會是

4.0927331783e+01</v><v>1.1238305389e+01</v><v>2.2222222222e-05</v><v>4.9085522333e-01</v><v>1.0917031488e+01</v><v>3.1551812477e-01</v><v>2.3592746401e-01</v><v>3.2864064230e-01</v><v>0.0000000000e+00</v><v>1.3289184201e-02</v><v>0.0000000000e+00</v><v>2.7655057217e-01

使用不貪婪比對 (Non-greedy match)，只要把 *, +, ?, {} 後面多加一個問號即可：

* => *?
+ => +?
? => ??
{} => {}?

因此，原式只要寫成這樣即可：

print $1 if $s=~ /<v>(.*?)<\/v>/;

結果：

4.0927331783e+01