以 perl one-liner 對多行文字檔進行跨行比對，印出相符字串

先講結論。abc.ini為輸入檔，要比對--- -- --開頭、---結尾的字串，允許跨行。一行以蔽之：

perl -0777 -ne "$temp=$1 and $temp=~s/\n//g and print $temp while /(?s)--- -- --(.+?)---/g" abc.ini

之前遇到這種問題都會用暫時變數記一堆狀態來解決，昨天突發奇想，找到一些參數，沒想到也能一行解決。簡單來說就是兩個技巧的連續技。

第一個技巧是 -0777 參數， 參 Slurp a file from the command line with -g – The Effective Perler ，如果 perl 是 5.36 以後的版本，也可以直接下 -g 參數即可。顧名思義就是把輸入檔串成一個字串。

第二個技巧是 (s?) 開關， 參 Perl regex match string including newline - Stack Overflow  ，其作用是讓 DOTALL 開關打開，使單字元萬用比對符納入換行符號。

其它的小變化有二，一是 while 的使用，因為你把資料串成一行了，-ne 中幫你做的 while 就沒有原來的迴圈效果了，因此要手動加上；二是 /g 開關要加上，理由同上。

額外的變化有二， (.+?) 是讓比對不要貪心(greedy)，$temp 是把結果的換行字元取代掉。

又是一個充實的補丁日呢~~