以下のコード@some_array
では、名前のようなテキストを含む配列の配列です。そう
@some_array= ([sam, jon, july],[Mike, Han,Tommy],[angie, sita, lanny]);
今、sam jon july
最初のようにリストをクエリするとmike han tommy
. 実行のみが最初のリストから結果を返します。その他は undef です。なぜ助けがありがたいのかわかりません。
2 位を 1 位に切り替えて実行すると、1 位のみが表示されます。したがって、問題は、最初のセットでは返されますが、後続のセットでは undef が返されることです。strict と warnings を有効にしましたが、エラーは表示されませんでした。
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";
}