作者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