我现在已经在这个问题上敲了大约5个小时,我真的很沮丧,需要一些帮助.
我正在编写一个Perl脚本,用于从MySQL表中提取作业,然后执行各种数据库管理任务.当前的任务是“创建数据库”.该脚本成功创建了数据库,但是当我为PHP开发人员生成配置文件时,它就会爆炸.
我认为引用和解引用变量是一个问题,但我不确定到底发生了什么.我想在这个函数调用之后,会发生一些事情
$$结果{ ‘的databaseName’}.这就是我得到结果的方式：$result = $select-> fetchrow_hashref()
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";
我认为问题来自函数调用的原因是因为如果我注释掉函数调用,一切都很好！
如果有人能帮我理解发生了什么,那就太好了.
谢谢,
附：如果您发现整个存储密码的安全性问题是数据库中的纯文本,那么在正常工作之后将会解决这个问题. = P
迪伦
解决方法
您不希望存储对fetchrow_hashref返回的$result的引用,因为每次后续调用都将覆盖该引用.
没关系,当你调用generate_config时,你没有使用引用,因为你是按值传递数据.
你在generate_config和调用函数中使用相同的$result变量吗？你应该在generate_config中使用自己的’my $result’.
while ( my $result = $select->fetchrow_hashref() )
# ^^ #add my
一些清理：
>调用generate_config时,您将通过值传递,而不是通过引用传递.这可以.
>你得到一个undef警告,这意味着你正在使用’use strict;’.好！
>通过我的函数在函数中创建词法$结果.
>虽然$$hashr {key}是有效代码,但$hashr-> {key}是首选.
>您正在使用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,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;
}