作者DarkKiller (System hacked)
看板perl
標題Re: [問題] 去除多餘空白
時間Wed Sep 19 12:56:28 2007
※ 引述《handsomegirl (薰)》之銘言：
: ※ 引述《handsomegirl (薰)》之銘言：
: : 我在讀進來的資料中,已經要求他不要印出空白行
: : 但是得到的資料仍然像下面這樣
: : E5A.txt A fA 01_ 8 0.0127
: : E5A.txt A fA 01_ 9 0.0002
: : E5A.txt A fA ----->這行是我不想印出來的
: : E5A.txt A fA 05_ 1 0.0037
: : E5A.txt A fA 05_ 2 0.0004
: : E5A.txt A fA 05_ 3 0.0107
: : print FOPEN "$_ $first $second $array[1] $array[2] $array[$i+2]\n"
: : if ($FOUND_PARAM!~/^\n/);
: 後來改成$FOUND_PARAM!=/^\n/就可以了
: 是因為需要!=的關係嗎?
: : 之前在winXP可以去除空白行.但是我抓到linux上去做就不行了
: : 請問一下應該怎麼修改才好?
: 最近在linux上測試,發現有太多東西其實用法會有差異,導致用起來非常辛苦
是你寫的習慣不好，平台的差異性在 Perl 裡面都有函式幫你處理。
open F, "<", "/tmp/ooxx.txt";
while (<F>) {
chomp; # 去尾端的 \r 與 \n
my @list = split /\s+/; # 分割
print join "\t", @list if defined $list[3];
}
close F;
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.113.54.119