Perl/MySQL下fetchrow出错# Programming - 葵花宝典
L*r
1 楼
怎么回事？
Can't call method "fetchrow_array" without a package or object reference at
test2.pl line 12.
#!/usr/bin/perl
use strict;
use DBI;
use FileHandle;
use Mysql;
my $dbh= DBI->connect("DBI:mysql:jXXX","XXX","XXX") || die "Got error";
my $tablename="GoogleDVD_Bi_2";
my @results;
#my $rows = $dbh->do(qq{select * from $tablename where (N1 is NULL)||(word_
0 is NULL)||(word_1 is NULL)});
my $rows = $dbh->do(qq{select * from $tablename where id=55});
while (@results = $rows->fetchrow_array()) {
Can't call method "fetchrow_array" without a package or object reference at
test2.pl line 12.
#!/usr/bin/perl
use strict;
use DBI;
use FileHandle;
use Mysql;
my $dbh= DBI->connect("DBI:mysql:jXXX","XXX","XXX") || die "Got error";
my $tablename="GoogleDVD_Bi_2";
my @results;
#my $rows = $dbh->do(qq{select * from $tablename where (N1 is NULL)||(word_
0 is NULL)||(word_1 is NULL)});
my $rows = $dbh->do(qq{select * from $tablename where id=55});
while (@results = $rows->fetchrow_array()) {