AnySQL.net

Perl Array DML的正确错误处理方法

    以前一直以为自已的处理方法是对的, 在asyncdata脚角正式使用了一次后, 发现还是错了.     下面一段是原来的处理角本: my $rv = $delstmt->execute_array({ArrayTupleStatus => \@rowstats}); if (! defined($rv)) {     # Error processing     my $updcnt = @rowstats;     for($i=0;$i<$updcnt;$i++)     {        if (ref $rowstats[$i])        {            # Error code : $rowstats[$i]->[0]           ...

Posted on September 10, 2007 3:25 PM

Perl的如何操作文件 -- FileHandle

    这几天连续写了几个Perl程序, 有的是自愿写的, 有的是任务型的, 这都无所谓了. 在所有的程序中都有一个共同点, 那就是要么程序要输出到屏蔽, 要么输出到一个文件, 对于刚学Perl的我来说, 这个地方也是花了不少时间查有关资料的, 不过最后让我明白的文档是Perl Doc站点上的FileHandle说明文档. 先说说我是如何处理的.     在我的程序中, 如果在命令行指定了一个log文件名的话, 就向log文件写, 否则就向屏蔽写出. 大致代码如下: use FileHandle; ...... sub openFile {    my ($logfile) = @_;    my ($fh);    if (defined($logfile))    {...

Posted on April 10, 2007 8:46 PM