作者oldstyle (lucky)
看板Perl
標題[問題] 遇到一個問題
時間Wed Jun 30 22:30:01 2010
想請教一下 遇到以下的狀況該怎麼解決?
我有一個檔案 想要在每一行的字串最後全部加上"_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
1F：→ frank1983:將 chomp; 換成 s/\r?\n//g; 試試看 07/01 00:12
2F：→ oldstyle:還是不行耶..... >\\\< 07/01 22:55
3F：→ frank1983:那 s/\r?\n|\r//g; 呢？ 07/01 23:08
4F：推 dryman:不能用foreach(<xxx>)，(<>)的語法是while限定的 07/02 15:19
5F：→ dryman:把foreach...chomp用which(<file>){ 取代即可 07/02 15:19
6F：推 zard1989:我在Win7上面測試完全沒問題耶，請問作業系統是? 07/02 22:20