Aktualizace:
Opravdu jednoduché, přiřadíte handle vrácený connect volání na $l_dbh ale vyvolejte metodu na $dbh . Musíte použijte strict
.
Původní odpověď:
Databázový popisovač $dbh není definován, což znamená, že připojení selhalo. Měli byste buď zkontrolovat návratové hodnoty svých volání, nebo zadat { RaiseError => 1} v connect zavolejte, abyste zjistili důvod.
Dále není důvod před každým dílčím vyvoláním uvádět & :Použijte ConnectFailed( ) místo &ConnectFailed( ) , pokud neznáte účinek předpony dílčího vyvolání pomocí & a touhu mít tento efekt.
Z perldoc perlsub :