如何从Perl的DBI中获取MySQL查询的结果？

发布时间：2020-12-16 06:10:50 所属栏目：大数据来源：网络整理

导读：我正在做以下事情,得到“1”我认为这意味着声明很好.但我想取而代之的是结果. 怎么了？ #!/usr/bin/perluse strict;use DBI;my $host = "test";my $database = "dd";my $port = 3306;my $user = "uuu";my $pw = "ppp";my $mysql = DBI-connect("DBI:mysql:da

我正在做以下事情,得到“1”我认为这意味着声明很好.但我想取而代之的是结果.

怎么了？

#!/usr/bin/perl

use strict;
use DBI;

my $host = "test";
my $database = "dd";
my $port = 3306;
my $user = "uuu";
my $pw = "ppp";

my $mysql = DBI->connect("DBI:mysql:database=$database;host=$host;port=$port",$user,$pw)
    or die "Cannot connect to MySQL servern";

my $m = $mysql->do(qq{select MAX(idvisit) from log_visit});

print $m;

解决方法

my $m = $mysql->selectrow_array(qq{select MAX(idvisit) from log_visit});

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!