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

前端之家收集整理的这篇文章主要介绍了如何从Perl的DBI中获取MySQL查询的结果?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在做以下事情,得到“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 server\n";

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});

猜你在找的Perl相关文章