Opdatering:
Simpelt, virkelig, du tildeler håndtaget returneret af connect ring til $l_dbh men påkald en metode på $dbh . Du skal brug strict
.
Oprindeligt svar:
Databasen håndterer $dbh er ikke defineret, hvilket betyder, at forbindelsen mislykkedes. Du bør enten kontrollere returværdierne for dine opkald eller angive { RaiseError => 1} i connect ring for at finde ud af årsagen.
Ydermere er der ingen grund til at præfikse hver underkald med & :Brug ConnectFailed( ) i stedet for &ConnectFailed( ) , medmindre du kender effekten af at præfiksere et underkald med & og ønske om at have den effekt.
Fra perldoc perlsub :