PTT數位生活區 / Perl

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

看板Perl作者 (大熱天)時間12年前 (2013/02/22 17:06), 編輯推噓1(1推 0噓 13→)
留言14則, 4人參與, 最新討論串1/2 (看更多)
請問各位高手, 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
→
02/23 09:55, , 1F
你要移的是換行符號 不是行
02/23 09:55, 1F
→
02/23 16:40, , 2F
能請您只點一下如何修改? thanks.
02/23 16:40, 2F
→
02/23 17:48, , 3F
把 \n 換成空白即可。 s/(this is)\n/$1 /;
02/23 17:48, 3F
→
02/24 11:27, , 4F
請問我目前只能尋找到關鍵字that, 然後再對那行處理
02/24 11:27, 4F
→
02/24 11:29, , 5F
打錯..應是尋找關鍵字 book, 然後把有 book 那行往上一行移
02/24 11:29, 5F
→
02/24 11:30, , 6F
把 a book 附加在 this is 這上一行的最後面
02/24 11:30, 6F
→
02/24 14:52, , 7F
最後兩行合併成同一行
02/24 14:52, 7F
推
02/24 16:01, , 8F
s/\n(a book)/ \1/m; 這樣就行了
02/24 16:01, 8F
→
02/24 18:39, , 9F
不好意思~小弟是菜鳥,能否解釋一下 \1/m 的意思? thanks!
02/24 18:39, 9F
→
02/25 21:20, , 10F
今天試了還是沒法.因為要讀一個檔案, 然後跨行搜尋.
02/25 21:20, 10F
→
02/25 21:21, , 11F
但是用 while 處理, 一次只能處裡一行, 無法跨行.
02/25 21:21, 11F
→
02/25 21:21, , 12F
請問有沒有高手可以幫忙解答一下 Orz... thanks.
02/25 21:21, 12F
→
02/27 06:18, , 13F
如果是用 <> 讀檔的話，可以先做 local $/ = undef;
02/27 06:18, 13F
→
02/27 06:19, , 14F
這樣就會把整個檔案讀進一個字串
02/27 06:19, 14F
‣ 更多 heyk1 的文章
文章代碼(AID): #1H9pKgAp (Perl)
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
排序： 最舊先 | 最新先 | 留言數
在新視窗開啟完整討論串 (共2篇)
Perl 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 heyk1 的文章
文章代碼(AID): #1H9pKgAp (Perl)