作者heyk1 (大熱天)
看板Perl
標題[請益] 請問 perl 處理行的移動
時間Fri Feb 22 17:06:47 2013
請問各位高手, 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
1F：→ iFEELing:你要移的是換行符號 不是行 02/23 09:55
2F：→ heyk1:能請您只點一下如何修改? thanks. 02/23 16:40
3F：→ gugod:把 \n 換成空白即可。 s/(this is)\n/$1 /; 02/23 17:48
4F：→ heyk1:請問我目前只能尋找到關鍵字that, 然後再對那行處理 02/24 11:27
5F：→ heyk1:打錯..應是尋找關鍵字 book, 然後把有 book 那行往上一行移 02/24 11:29
6F：→ heyk1:把 a book 附加在 this is 這上一行的最後面 02/24 11:30
7F：→ heyk1:最後兩行合併成同一行 02/24 14:52
8F：推 dryman:s/\n(a book)/ \1/m; 這樣就行了 02/24 16:01
9F：→ heyk1:不好意思~小弟是菜鳥,能否解釋一下 \1/m 的意思? thanks! 02/24 18:39
10F：→ heyk1:今天試了還是沒法.因為要讀一個檔案, 然後跨行搜尋. 02/25 21:20
11F：→ heyk1:但是用 while 處理, 一次只能處裡一行, 無法跨行. 02/25 21:21
12F：→ heyk1:請問有沒有高手可以幫忙解答一下 Orz... thanks. 02/25 21:21
13F：→ gugod:如果是用 <> 讀檔的話，可以先做 local $/ = undef; 02/27 06:18
14F：→ gugod:這樣就會把整個檔案讀進一個字串 02/27 06:19