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

Question

我现在已经在这个问题上敲了大约5个小时,我真的很沮丧,需要一些帮助.

我正在编写一个Perl脚本,用于从MySQL表中提取作业,然后执行各种数据库管理任务.当前的任务是"创建数据库".该脚本成功创建了数据库,但是当我为PHP开发人员生成配置文件时,它就会爆炸.

我认为引用和解引用变量是一个问题,但我不确定到底发生了什么.我想在这个函数调用之后,$$ result {'databaseName'}会发生一些事情.这就是我得到结果的方式:$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 创建词法 $result
4. 虽然 $$hashr{key} 是有效代码，但 $hashr->{key} 是首选。

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

   sub generateConfig {
     my($inName, inPass, $inExt) = @_;
   
     my $goodData = 1;
     my $select   = $dbh->prepare("SELECT id FROM $databasesTableName WHERE name = ?");
     my $insert   = $dbh->prepare("
                       INSERT INTO $configTableName(
                         databaseID
                         ,username
                         ,password
                       ,path) 
                       VALUES( ?, ?, ?, ?)" );
     my $path     = $documentRoot . $inName . "_config." . $inExt;
     $select->execute( $inName );
   
     if ($select->rows < 1 ) {
           $goodData = 0;
     }
   
     while ( my $result = $select->fetchrow_hashref() )
     {
       insert->execute( $result->{id}, $inName, $inPass, $path );
     }
   
    return 1;
   

   }