从Perl脚本显示MySQL查询结果
发布时间:2020-12-16 06:18:01 所属栏目:大数据 来源:网络整理
导读:我的Perl脚本应该打印查询结果.但是,目前我收到错误: 无法通过包“SELECT * FROM SERVER”找到对象方法“fetchrow_array”(也许你忘了在updateDB.pl第32行加载“SELECT * FROM SERVER”?) 我想这个问题很难解决..但我的perl / MySQL技能还有很多不足之处.
我的Perl脚本应该打印查询结果.但是,目前我收到错误:
无法通过包“SELECT * FROM SERVER”找到对象方法“fetchrow_array”(也许你忘了在updateDB.pl第32行加载“SELECT * FROM SERVER”?) 我想这个问题很难解决..但我的perl / MySQL技能还有很多不足之处.我的脚本如下: #!/usr/bin/perl use DBI; use DBD::mysql; use strict; use warnings; MySQL("SELECT * FROM SERVER"); # define subroutine to submit MySQL command sub MySQL { # establish connection with 'serverDNA' database my $connection = DBI->connect("DBI:mysql:database=serverDNA;host=localhost"); my $query = $_[0]; #assign argument to string my $statement = $connection->prepare($query); #prepare query $statement->execute(); #execute query #loop to print MySQL results while (my @row = $query->fetchrow_array) { print "@rown"; } } 非常感谢! 解决方法
你在查询字符串上调用fetchrow_array;你想在声明中调用它.
while (my @row = $statement->fetchrow_array) { print "@rown"; } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |