Perl 在传递给子例程时引用和引用哈希值？

Question

我已经为这个问题苦苦思索了大约 5 个小时，我真的很沮丧，需要一些帮助。

我正在编写一个 Perl 脚本，该脚本从 MySQL 表中提取作业，然后执行各种数据库管理任务。当前任务是“创建数据库”。该脚本成功创建了数据库，但是当我为 PHP 开发人员生成配置文件时，它崩溃了。

我认为这是引用和取消引用变量的问题，但我不太确定到底发生了什么。我认为在这个函数调用之后，发生了一些事情 $$结果{'数据库名称'}。这就是我获取结果的方式： $result = $select->fetchrow_hashref()

这是我的函数调用和函数实现：

函数调用（第 127 行）：

generateConfig($$result{'databaseName'}, $newPassword, "php");

函数实现：

sub generateConfig {
    my($inName) = $_[0];
    my($inPass) = $_[1];
    my($inExt)  = $_[2];

    my($goodData) = 1;
    my($select)   = $dbh->prepare("SELECT id FROM $databasesTableName WHERE name = '$inName'");
    my($path)     = $documentRoot.$inName."_config.".$inExt;
    $select->execute();

    if ($select->rows < 1 ) {
            $goodData = 0;
    }

    while ( $result = $select->fetchrow_hashref() )
    {
            my($insert) = $dbh->do("INSERT INTO $configTableName(databaseId, username, password, path)".
                                   "VALUES('$$result{'id'}', '$inName', '$inPass', '$path')");

    }

    return 1;
    }

错误：

Use of uninitialized value in concatenation (.) or string at ./dbcreator.pl line 142.
Use of uninitialized value in concatenation (.) or string at ./dbcreator.pl line 154.

第 142 行：

        $update = $dbh->do("UPDATE ${tablename}
                        SET ${jobStatus}='${newStatus}' 
                        WHERE id = '$$result{'id'}'");

第154行：

 print "Successfully created $$result{'databaseName'}\n";

我认为问题来自函数调用的原因是因为如果我注释掉函数调用，一切都会很好！

如果有人能帮助我了解发生了什么，那就太好了。

谢谢，

ps如果您发现在数据库中以纯文本形式存储密码存在安全问题，那么在正常工作后将得到解决。 =P

迪伦

Answer 1

您不想存储对从 fetchrow_hashref 返回的 $result 的引用，因为每个后续调用都会覆盖该引用。

没关系，当您调用generate_config 时，您没有使用引用，因为您是按值传递数据。

您在generate_config和调用函数中使用相同的$result变量吗？您应该在generate_config 中使用您自己的“my $result”。

      while ( my $result = $select->fetchrow_hashref() )
      #       ^^  #add my

这就是您所包含的当前代码片段可以说的全部内容。

一些清理：

1. 当调用generate_config时，您是按值传递，而不是按引用传递。这很好。
2. 您收到 undef 警告，这意味着您正在使用“use strict;”运行。好的！
3. 在函数中通过 my.create 词法 $result
4. 虽然 $$hashr{key} 是有效代码，但 $hashr->{key} 是首选。

5. 您正在使用 dbh->prepare，不妨使用占位符。

   子generateConfig {
     my($inName, inPass, $inExt) = @_;
   
     我的 $goodData = 1;
     我的 $select = $dbh->prepare("从 $databasesTableName WHERE name = 中选择 id ？");
     我的 $insert = $dbh->prepare("
                       插入 $configTableName(
                         数据库ID
                         ,用户名
                         ，密码
                       ，小路） 
                       值（？，？，？，？）”）；
     我的 $path = $documentRoot 。 $inName . “_配置”。 。 $inExt;
     $select->执行( $inName );
   
     if ($select->行 < 1 ) {
           $好数据= 0；
     }
   
     而（我的 $result = $select->fetchrow_hashref() ）
     {
       插入->执行( $结果->{id}, $inName, $inPass, $path );
     }
   
    返回1；
   

   }

Answer 2

编辑：阅读您的评论后，

我认为这两个错误都与您使用 $$result 有关。如果 $result 是 fetchrow_hashref 的返回值，如：

$result = $select->fetchrow_hashref()

那么引用其值的正确方法应该是：

 print "Successfully created " . $result{'databaseName'} . "\n";

and：

    $update = $dbh->do("UPDATE ${tablename}
                    SET ${jobStatus}='${newStatus}' 
                    WHERE id = '$result{'id'}'");

旧答案：

在函数 generateConfig 中，您可以使用以下语法传递引用：（

generateConfig(\$result{'databaseName'},$newPassword, "php");

$$ 用于取消对字符串的引用；\ 为您提供对对象的引用它适用于）。

然后，在 print 语句本身中，我会尝试：

 print "Successfully created $result->{'databaseName'}->{columnName}\n";

确实，fetchrow_hashref 返回一个哈希值（而不是字符串）。

这应该可以解决一个问题。

此外，您正在使用名为 $dbh 的变量，但没有显示它的设置位置。它是一个全局变量，以便您可以在 generateConfig 中使用它吗？执行generateConfig时是否已初始化？

Answer 3

当我从 Oracle 结果集中运行 hetchrow_hashref 时，这让我抓狂。
结果列名总是以大写形式返回。
因此，一旦我开始以大写形式引用列，问题就消失了：
插入->执行( $结果->{ID}, $inName, $inPass, $path );