Актуализация:
Наистина просто, присвоявате манипулатора, върнат от connect обадете се на $l_dbh но извикване на метод на $dbh . Виетрябва използвайте strict
.
Оригинален отговор:
Манипулаторът на базата данни $dbh не е дефинирано, което означава, че връзката е неуспешна. Трябва или да проверите върнатите стойности на вашите обаждания, или да посочите { RaiseError => 1} в connect обадете се, за да разберете причината.
Освен това няма причина всяко подизвикване да се префиксира с & :Използвайте ConnectFailed( ) вместо &ConnectFailed( ) , освен ако не знаете ефекта от префикса на подизвикване с & и желание да има този ефект.
От perldoc perlsub :
