Mise à jour :
Simple, vraiment, vous affectez le handle retourné par le connect appel à $l_dbh mais invoque une méthode sur $dbh . Vous devez utilisez strict
.
Réponse originale :
Le handle de base de données $dbh n'est pas défini, ce qui signifie que la connexion a échoué. Vous devez soit vérifier les valeurs de retour de vos appels, soit spécifier { RaiseError => 1} dans le connect appeler pour connaître la raison.
De plus, il n'y a aucune raison de préfixer chaque sous-invocation avec & :Utilisez ConnectFailed( ) au lieu de &ConnectFailed( ) , sauf si vous connaissez l'effet de préfixer une sous-invocation avec & et le désir d'avoir cet effet.
Depuis perldoc perlsub :
