PTT數位生活區 / Perl

[問題] 遇到一個問題

看板Perl作者 (lucky)時間15年前 (2010/06/30 22:30), 編輯推噓2(2推 0噓 4→)
留言6則, 4人參與, 最新討論串1/3 (看更多)
想請教一下 遇到以下的狀況該怎麼解決? 我有一個檔案 想要在每一行的字串最後全部加上"_PAD" 本來我是這樣做的 ================================================= #! /usr/local/bin/perl -w use strict; open (file,$in_file) or die "open file error"; foreach (<file>) { chomp; $_ = $_."_PAD"; print "$_\n"; } close(file); ================================================= 本來結果應該是 ABCDE --> ABCDE_PAD FGHIJ --> FGHIJ_PAD 但我卻變成 ABCDE --> _PADE FGHIJ --> _PADJ 請問是哪邊出了問題呢?? 謝謝各位!!! -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.32.218.219
→
07/01 00:12, , 1F
將 chomp; 換成 s/\r?\n//g; 試試看
07/01 00:12, 1F
→
07/01 22:55, , 2F
還是不行耶..... >\\\<
07/01 22:55, 2F
→
07/01 23:08, , 3F
那 s/\r?\n|\r//g; 呢？
07/01 23:08, 3F
推
07/02 15:19, , 4F
不能用foreach(<xxx>)，(<>)的語法是while限定的
07/02 15:19, 4F
→
07/02 15:19, , 5F
把foreach...chomp用which(<file>){ 取代即可
07/02 15:19, 5F
推
07/02 22:20, , 6F
我在Win7上面測試完全沒問題耶，請問作業系統是?
07/02 22:20, 6F
‣ 更多 oldstyle 的文章
文章代碼(AID): #1CArJhOi (Perl)
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 3 篇)：
排序： 最新先 | 最舊先 | 留言數
在新視窗開啟完整討論串 (共3篇)
Perl 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 oldstyle 的文章
文章代碼(AID): #1CArJhOi (Perl)