PERL中怎么删除一空行

HF.SKY000

open(READ,"sz_ci.log"||die "Can not write!";       
                while (<READ> {
                chomp;
                @array=<READ>;
                                #print @array;  
                }
                close(READ);
                for (my $i=0;$i<@array ;$i++) {
                        print $array[$i],"\n";
                }

输出:11032

11932

12741

12761

12801
问题:在chomp;@array=<READ>;这之后输出发现没有空行.但是通过一个FOR循环之后输出却有空行了?怎样才能取掉空行呢?

dl0622

你不是打印了空行吗？
"\n";
问得太奇怪了

HF.SKY000

是空行,输出结果帖出来了.

machine

while (<READ> {
                chomp;
                @array=<READ>;
                                #print @array;  
                }
你这程序我不有点读不懂。
想去空行这样不就行了：

while (<READ> {
               s/^\s*$//g;
               print;  
                }

HF.SKY000

呵呵,通过FOR循环输出发现是有空行.

ynchnluiti

原帖由 HF.SKY000 于 2008-11-30 15:44 发表
open(READ,"sz_ci.log"||die "Can not write!";       
                while () {
                chomp;
                @array=;
                                #print @array;  
                }
                close(READ);
                for (my $i=0;$i

楼主没注意两个print的区别， 可能是for循环里写print语句加上,"\n";写习惯了。

@array=<READ>;
这句中<>在列表环境，会把文件内容从第二行到文件结尾一次读入@array;所以chomp只对第一行有效。
for循环里print $array[$i],"\n"; 中$array[$i]已经包含一个'\n'（没有被chomp)， 再输出一个\n，就会多输出一个空行.

ynchnluiti

删除空行，

1. open(READ,"sz_ci.log")||die "Can not write!";   
   
2. while (<READ>) {
   
3.     print if !/^$/;
   
4. #  print if !/^\s*$/;#删除包含空格,tab的空白行
   
5. }
   
6. close(READ);

复制代码

HF.SKY000

说得对,在FOR循环PRINT多带了一个"\N".
再请教个问题:

for (my $i=0;$i<@array ;$i++) {
my $s="select ne_id from ne_cell where n_confirm<>1 and ci=$array[$i] and city_id='114' order by 1";
$sth=$dbh->prepare($s);
$sth->execute;
while (my $line=$sth->fetchrow_array) {
push @ne_id_sz,"$line\n";
my $size=@ne_id_sz;
print $size,"\n";
$sth->finish;
}
}
打印结果怎么会是:
1
2
3
4
5
..
N
应该输出数据的长度(大小)才是呀?

ynchnluiti

原帖由 HF.SKY000 于 2008-11-30 17:29 发表
说得对,在FOR循环PRINT多带了一个"\N".
再请教个问题:

for (my $i=0;$iprepare($s);
$sth->execute;
while (my $line=$sth->fetchrow_array) {
push @ne_id_sz,"$line\n";
my $size=@ne_id_sz;
print  ...

my $size=@ne_id_sz;#这个得到的是数组元素个数，$size是个标量。

HF.SKY000

应该输出数组的个数,是一个值才对呀,怎么会输出1 2 3 4 5 等等呢?