注意:我已经更正了变量差异,它确实打印了第一组的查询,但它没有从第二组返回任何内容。如果我只使用第二组,它会起作用。
在下面的代码中,我有一些数组,它是数组的数组,该数组包含名称之类的文本。所以@some_array= ([sam, jon, july],[Mike, Han,Tommy],[angie, sita, lanny]); 现在,当我首先查询 'sam jon july' 和 'mike han tommy' 这样的列表时。只有执行从第一个列表中返回结果,其他人是 undef。我不知道为什么会有任何帮助。
my $pointer;
my $db = $db->prepare_cached("
begin
:pointer := myFun(:A1);
end;
") or die "Couldn't prepare stat: " . $db->errstr;
$db->bind_param_inout(":pointer",\$pointer,0,{ ora_type => ORA_RSET });
for (my $i=0; $i < @some_array ; $i++) {
my @firstarray = @{$some_array[$i]};
my $sql = lc(join(" ", @firstarray));
print "<pre>$sql</pre>\n";
$db->bind_param(":A1",$sql);
$db->execute();
print "<pre>".Dumper($db->execute())."</pre>\n";
}