为什么我的查询什么结果也没有返回?

ATCG 2002-07-15 01:31:03
1、为什么我的查询什么结果也没有返回?数据库表里面有记录的。
我把fetchrow_hashref改成fetchrow_arrayref就有了。

2、为什么加了use strict就报以下的错?
Global symbol "$record_hash" requires explicit package name at
F:\Perl\test.pl line 10.

#!/perl/bin/perl
use DBI;
my $dbh = DBI->connect("dbi:Oracle:study", 'test','test');
#my $sql = qq{select * From student};
my $sth = $dbh->prepare( "select * From student ");
my %record_hash;
$sth->execute();
while ($record_hash = $sth->fetchrow_hashref)
{
print "$record_hash->{name} $record_hash->{class}"."\n";
}
$sth->finish;
$dbh->disconnect;
exit;
...全文
75 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
ATCG 2002-07-15
  • 打赏
  • 举报
回复
谢谢回答!
我改了,也不行。
zengpan_panpan 2002-07-15
  • 打赏
  • 举报
回复
1,这样改改试试my $sth = $dbh->prepare( "select name,class From student ");

2. 因为你没有定义$record_hash,既然是引用,当然要定义标量,你定义的my %record_hash,实际上没有用。

2,204

社区成员

发帖
与我相关
我的任务
社区描述
Web 开发 CGI
社区管理员
  • CGI社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧