Perl mysql解析

Question

我想用Perl解析數據到MySQL表。但每當我收到以下錯誤： 未定義子程序& main :: execute在all_drug_info.pl調用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"; 
} 

Answer 1

相反的：

$query_handle3 = execute($d_t->[$a], ..... 

使用：

$query_handle3->execute($d_t->[$a], .....