文件句柄的作用域问题

chenhebuaa

代码：
open FH, ">>csync.dat";
while(1){
        my $sth = $db->prepare("select id,version from table limit 1000");
        $sth->execute;
        while(my $row = $sth->fetchrow_hashref){
                      print FH, $row->{id};
        }
}

执行程序后，没有写入到文件。 调试，发现二层循环，FH，就失效了。想高手帮忙解决一下。。

climby

输出到文件，应该不需要这个， 吧
print FH, $row->{id};

chenhebuaa

是没有逗号，发帖的时候多打了一个。
open FH, ">>csync.dat";
while(1){
        my $sth = $db->prepare("select id,version from table limit 1000");
        $sth->execute;
        while(my $row = $sth->fetchrow_hashref){
                      print FH, $row->{id};
                      $db->do("update table set status=1 where id=".$row->{ID});#######

        }
}

我发现，去掉###这行，就可以写入文件；
加上###这行，就没有办法写入文件，为什么呢？

churchmice

$| =1;

chenhebuaa

我试了 $| =1; 还是不行。。打印不出来，但数据库确实更新了

yybmsrs

print时加个\n试试

Perl_Er

print FH, $row->{id}; 这个地方用法不对.
print FILEHANDLE LIST

toniz

回复 1# chenhebuaa


用下面这个试试吧

1. open FH, ">>csync.dat";
   
2. my $F =\*FH;
   
3. print  $F  $row->{id};

复制代码