質問
ハッシュキーを小枝のサブルーチンに渡すことができないのを手伝ってください。
ここ:
foreach my $word (sort { $keywords{$a} <=> $keywords{$b} } keys (%keywords)) {
my $t = XML::Twig->new( twig_roots => { 'Id' => \&insert($keywords{$word}) } );
$t->parse($docsums);
sub insert
{
my($t, $id, $k)= @_;
my $p = $id->text;
my $query = "insert into pres (id, wid, p) values(DEFAULT, '$k', '$p')";
my $sql = $connect->prepare($query);
$sql->execute( );
}
}
ありがとう。
解決
カレーしようとしているようです insert
しかし、Perlはそれを直接サポートしていません。代わりに、匿名のサブを使用して、適切な引数リストを作成できます insert
:
'Id' => sub { insert($_[0], $_[1], $keywords{$word}) }
所属していません StackOverflow