Perl を使用してデータを MySQL テーブルに解析しようとしています。しかし、毎回次のエラーが発生します: undefined subroutine &main::execute called at all_drug_info.pl line 71 all_drug_info は、別のファイル (サブルーチン) から情報をフェッチするためのメイン ファイルです。端末のメイン ファイルから値を出力しようとすると、正常に出力されますが、MySQL テーブルで解析されません。以下は私の作品のコードです。これをデバッグするのを手伝ってください：
#! /usr/bin/perl
binmode(STDOUT, ":utf8");
use XML::XPath;
require 'drug_characteristics.pl';
my $query3 = "INSERT INTO drug_characteristics VALUES (?,?,?,?,?,?,?,?,?)";
my $query_handle3 = $dbh->prepare($query3);
my ($d_t, $descr, $pm, $ind, $mech, $tox, $gr, $cl, $pha)=&drugCharacteristics(@files);
for(my $a=0; $a< $drug_count ; $a++)
{
#to execute mysql queries:
$query_handle3 = execute($d_t->[$a], $descr->[$a], $pm->[$a], $mech->[$a], $tox->[$a], $ind->[$a], $gr->[$a], $cl->[$a], $pha->[$a]);
print $d_t->[$a], "\n", $descr->[$a], "\n", $pm->[$a], "\n", $ind->[$a], "\n",$mech->[$a], "\n", $tox->[$a], "\n", $gr->[$a], "\n", $cl->[$a], "\n",$pha->[$a], "\n","---------------------------------------------------------------------------------------------------------------------------------------------------------------------","\n";
}