[問題] 取代+新增某行+讀取值放在取代後面

看板Perl作者tony9211 (公車奇想男)時間7年前 (2016/09/29 00:02)推噓2(2推 0噓 9→)

留言11則, 5人參與討論串1/1

嗨嗨各位前輩這是我之前的關於取代的 code 上面的語法也是在網路上拼拼而成我自己也不是很熟悉唸書唸到一半又碰到新的問題這是我之前拿來做取代的程式碼他會讀取在某個資料夾底下 .asc副檔名結尾的資料並且做取代的動作然後再將檔案寫回去 https://gist.github.com/anonymous/40f78570806da2e8fd36d61090b4c1e7 想請問一下如果我現在要做的事情有跟上次很像但不是只有單純的取代總共有四個步驟我個人都覺得有點麻煩... 如果寫的人在新竹可以提供麥當勞或是星巴克兩杯 :) (一行程式碼我覺得太難閱讀惹XD 希望可以長一點加個註解跟介紹 ^^) 1. 取代某行 $data =~ s/Have a wonderful day!/Good luck to you/gi; (這個我還可以) 2. 刪除某行 (這個我就不會了希望是可以刪除某行 Ex: aaa bbb ccc 希望刪除bbb後變成 (希望那行完全刪除不要換行) aaa ccc 3. 刪除某行並且在後面新增兩行 Ex: aaa ccc bbb ddd 想要刪除 bbb ddd這行並且新增 bbb xxx 以及 bbb eee (包含換行符號) 所以會變成 aaa ccc bbb xxx bbb yyy 4. 讀取某行後面的數字新增兩行新的兩行取代這一行但新的兩行但會用到這行原本的數字第一行不變第二行做運算 Ex: aaa 101 12 34 -45 Left 1 bbb 102 56 76 -98 Left 1 想要讀取在aaa 101 後面的那行數字然後然後新增兩行並且在第二行做運算會變成 ccc 105 12 35 -45 Left 1 ccc 106 12 35 -46 Left 1 bbb 102 56 76 -98 Left 1 這邊是先把aaa 101 取代成為 ccc 105 其中的35= 原本aaa後面的 34+1 | -46= -45-1 感謝大神了希望可以加個註解了願意以新竹的星巴克/麥當勞/摩斯答謝 :) -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.132.55.51 ※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1475078556.A.4A2.html