无法通过包“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 "@row\n";
    }
}

非常感谢！