[問題] perl 跨行比對的問題
大家好 我是perl新手
想請教一下perl的跨行取代要如何重複執行
我寫出來的都會直接取代第一個和最後一個case
舉例來說
我有一個檔案形式是
1.AAAxxxxB=XXXxxx
xxxC=YYY
2.AAAxx
xB=ZZZxxxxxxxxxC=HHH
(x是不要的東西且x有可能跨行)
我想要抓出
1.AAA B=XXX C=YYY
2.AAA B=ZZZ C=HHH
所以我perl寫的是
$_=~ s/AAA.*B=(\S+).*C=(\S+)/AAA B=$1 C=$2/gs;
print $_ . "\n";
結果他只能出現一行
1.AAA B=ZZZ C=HHH
^^^^^ ^^^^^^^^^^
第一行的頭 第二行的尾
有高手可以指導一下該怎麼寫嗎? 謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.113.5.175
→
06/02 13:19, , 1F
06/02 13:19, 1F
→
06/02 14:03, , 2F
06/02 14:03, 2F
→
06/02 15:34, , 3F
06/02 15:34, 3F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 3 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
