[精讚] [會員登入]

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

預設perl是貪婪比對,如果要取得不貪婪的比對,要怎麼做?

此文完整連結 http://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

 

[相關連結]

https://www.oreilly.com/library/view/perl-cookbook/1565922433/ch06s16.html

你可能有興趣

圖片合併線上網頁 FILESMERGE

要把多個圖片合併?推薦這個不會越併越大的網頁。

線上輪盤wheelofnames,單筆抽籤好網站

想要抽籤不必再拿籤桶了,這個線上輪盤可以讓你歡樂的抽個籤。

拒絕詐騙 MyGoPen 謠言破解網

網路上傳來傳去的媒體很多,但是很多都是假的,這個網站告訴你哪些網路上出現的假消息。

如何讓photoshop的psd檔可以在檔案總管中顯示預覽

sagethumbs讓photoshop的psd檔可以在檔案總管中顯示預覽

最惡俄羅斯方塊--消一行都很難

利用AI控制掉下來的方塊,每一塊都是你不想要的,據說連消一行都很難。