PERL中怎么删除一空行

ynchnluiti

while (my $line=$sth->fetchrow_array) {
push @ne_id_sz,"$line\n";
my $size=@ne_id_sz;
print $size,"\n";
$sth->finish;
}

这是个循环。取出多少行记录就会打印多少次数组的个数。

$sth->execute;后取到一个记录集，类似这样：
记录    字段1    字段2   ....
1          abc       xxxx
2          def        xxxx
...

while (my $line=$sth->fetchrow_array) 应该写成：while (@row=$sth->fetchrow_array)
每次取一个记录（@row的每个元素是select指定的字段）。@row 分别等于 (abc, xxx),  (def, xxx) ....

ynchnluiti

原帖由 ynchnluiti 于 2008-11-30 18:02 发表

这是个循环。取出多少行记录就会打印多少次数组的个数。

$sth->execute;后取到一个记录集，类似这样：
记录    字段1    字段2   ....
1          abc       xxxx
2          def        xxxx
...

...

不是line和row的区别。
@line, @row都可以，或者其它名字。

dl0622

原帖由 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  ...

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";       #每循环一次@ne_id_sz增加保存一个元素，该元素是该次循环的ne_id
my $size=@ne_id_sz;              #这里$size只是取数组元素的个数，因此下面就打印了每次循环的数组元素个数
print $size,"\n";
$sth->finish;
}
}