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