fetchrow_hashref 还是 fetchhash？

Question

我想知道是否有人可以帮助我解决一个令人沮丧的旧 perl 代码问题。我的实际任务是将一个旧的 perl 脚本从版本 5.10.1 迁移到 5.18.2。

所以我已经解决了脚本的简单问题，例如错误调用、错误格式等。

但是我卡在了一个名为 fetchash 的函数上，它看起来像 fetchrow_hashref;

我打算获取 IP、名称服务器 ID 和名称的列表。我的问题是，函数 fetchrow_hashref 不像旧代码中的 fetchhash 那样做同样的事情。

查看以下新代码：

        #fetch_network();
        $res2=$dbh->prepare("select nsip,nsid,nsname from nameservers");
        $res2->execute();

        while (%ns2=$res2->fetchrow_hashref;{
            $nsips{$ns2{nsid}}=$ns2{nsip};
            $nsnames{$ns2{nsid}}=$ns2{nsname};
        }

table 看起来像：

+-----------------+------+------------------------------+
| nsip            | nsid | nsname                       |
+-----------------+------+------------------------------+
| 101.101.111.10  |    1 | ns1.yournameserver.net       |

这是旧代码的一部分：

$res2=$dbh->query("select nsip,nsid,nsname from nameservers");
while (%ns2=$res2->fetchhash)
{
$nsips{$ns2{nsid}}=$ns2{nsip};
$nsnames{$ns2{nsid}}=$ns2{nsname};
}

所以我尝试使用 fetchrow_hashref 但它对我不起作用：

main::(nsconfgen.pl:170):               while (%ns2=$res2->fetchrow_hashref){
DB<193> n
Reference found where even-sized list expected at nsconfgen.pl line 170.
at nsconfgen.pl line 170.
main::(nsconfgen.pl:171):                     $nsips{$ns2{nsid}}=$ns2{nsip};
DB<193> p $ns2{nsid}

( i've get no value from the hash )

当然，我已经浏览了 Google 并且我尝试了很多示例，但实际上没有任何帮助...

所以我希望我能在这里得到一些帮助。

非常感谢！

Answer 1

在 DBI 实现者中，fetchrow_hashref 的 return 值是对散列的引用，而不是散列。对您的代码进行一些更改即可使其正确：

    while ($ns2=$res2->fetchrow_hashref) {
        $nsips{$ns2->{nsid}}=$ns2->{nsip};
        $nsnames{$ns2->{nsid}}=$ns2->{nsname};
    }

fetchrow_hashref 还是 fetchhash？

fetchrow_hashref or fetchhash?

mysql

perl

dbi