[請益] 請問 perl 處理行的移動

[heyk1 (大熱天)]

請問各位高手, perl 能否把本行(特定某一行) 移動加到上一行的最後面?

例如:

this is
a book
that is a chair

用 perl 改成 ==>
this is a book

that is a chair
--------------------

謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 60.250.191.40
→ iFEELing:你要移的是換行符號 不是行
→ heyk1:能請您只點一下如何修改? thanks.
→ gugod:把 \n 換成空白即可。 s/(this is)\n/$1 /;
→ heyk1:請問我目前只能尋找到關鍵字that, 然後再對那行處理
→ heyk1:打錯..應是尋找關鍵字 book, 然後把有 book 那行往上一行移
→ heyk1:把 a book 附加在 this is 這上一行的最後面
→ heyk1:最後兩行合併成同一行
推 dryman:s/\n(a book)/ \1/m; 這樣就行了
→ heyk1:不好意思~小弟是菜鳥,能否解釋一下 \1/m 的意思? thanks!
→ heyk1:今天試了還是沒法.因為要讀一個檔案, 然後跨行搜尋.
→ heyk1:但是用 while 處理, 一次只能處裡一行, 無法跨行.
→ heyk1:請問有沒有高手可以幫忙解答一下 Orz... thanks.
→ gugod:如果是用 <> 讀檔的話，可以先做 local $/ = undef;
→ gugod:這樣就會把整個檔案讀進一個字串