Fråga : Kan inte lokalisera DBI.pm i @INC

Hi den pröva förmiddagen för

I att använda planlagda uppgifter (cron) i plesk att överföra en dagstidningpåminnelse till en e-post tilltalar för födelsedagar i mitt kontor,
The kodifierar är nedanför, när det kör mig får efter felet message.

Can för att inte lokalisera DBI.pm i @INC (@INC innehåller: C: /Program sparar/paralleller/Plesk/Additional/Perl/lib C: /Program sparar/paralleller/Plesk/Additional/Perl/site/lib.), på C:\inetpub\vhosts\httpdocs \ testserver \ email2.pl fodrar missad 4.
BEGIN--sammanställning som aborteras på C:\inetpub\vhosts\httpdocs \ testserver \ email2.pl, fodrar 4.

I har kontrollerat för att se, om DBI installeras using befallaperlen - MCPAN -

I för e ”installerad DBI” får svaret DBI är aktuell (1.611)

Can som du behar hjälp?
> för

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:

" codeBody " " ># för class= " för connect (”dbi: mysql: $DATABASE: localhost: 3306”, ”$USERNAME”, ”$PASSWORD”); nr., om LEGITIMATIONEN är en int, detta bör vara ”LEGITIMATIONEN = 0” men, om den är en röding eller varchar, det är korrekt mitt $settings1 = $dbh->prepare (”välj * från inställningar VAR LEGITIMATIONEN = ”0””); $settings1->execute (); nr., sedan du väljer * som måste inkludera LEGITIMATION, bara dig ha inte LEGITIMATIONEN i denna att lista. Nr. har att anta den är första sätter in i ro, mig tillfogat den min stunder (($ID, $Path, $Ops_Email, $From_Email, $Subject, $Monthly_Email, $Email_Reminders) = $settings1->fetchrow_array ()) { nr. flyttning på, om vi inte gör något om inte därefter $Email_Reminders-== 1 eller $Monthly_Email-== 1; Nr. dagligen påminnelser om ($Email_Reminders-== 1) { Nr. vi ska tillfogar starten och avslutar av förkroppsliga, om endast det fanns några födelsedagar i dag mitt ($dailycount, $body); $sth->execute (); min stunder (($Name, $Address, City, $State, $Postal, Country, $B_Date) = $sth->fetchrow_array ()) { Nr. tillfoga en till $dailycounten $dailycount++; Nr. få precis året av $B_Date, genom att få rid av allt, efter första har rusat (mitt $B_Year = $B_Date) =~ s/-.*//; mitt $age = $yy - $B_Year; $body. = ”$Name (vänd $age!)\ n”; } $sth->finish; $body. = ”\ n”; nr. överför inte några, om det finns inga om ($dailycount > 0) { $body = <new ( Från =>$From_Email, Till =>$To_Email, Betvinga =>$Subject, Data =>$body ); ### överför i ”det bäst” långt (standarden är att använda ”sendmail”): $msg->send; } } nr. avsluta dagligen påminnelser Nr. gör månadstidningpåminnelser, om den är första av månaden om ($dd-== 1) { ################ Nr. MONTHLYEMAIL nr. ################ nr. förbered queryen mitt $sthMonthly = $dbh->prepare (”välj * från teamdates VAR NÅGOT LIKNANDE ”%-$mm-%” för `- B_Date `”); nr. utför queryen $sthMonthly->execute (); Nr. vi ska tillfogar starten och avslutar av förkroppsliga, om endast det fanns några födelsedagar i dag mitt ($monthcount, $body); min stunder (($Name, $B_Date) = $sthMonthly->fetchrow_array ()) { $monthcount++; Nr. få precis året av $B_Date, genom att få rid av allt, efter första har rusat (mitt $B_Year = $B_Date) =~ s/-.*//; mitt $age = $yy - $B_Year; $body. = ”$Name (vänd $age2!) $B_Date \ n”; }; om ($monthcount) { ## postar förkroppsligar mitt $body = <new ( Från =>$From_Email, Till =>$Ops_Email, Betvinga =>$Subject, Data =>$body ); ### överför i ”det bäst” långt (standarden är att använda ”sendmail”): $msg->send; } } } " klar "

Svar : Kan inte lokalisera DBI.pm i @INC

Är här mitt favorit- trick som bestämmer var Module.pmen som du behöver lokaliseras.

perl - MDBI - D - e0 och skrivar V på avlusarebetalningspåminnelsen, då lokaliserar därefter enheten och dess tillhörande bana:

Se nedanför för en avskrift…,

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87:

C:\Documents and Settings\jerome >perl - MDBI - D - e0 Ladda DB-rutiner från perl5db.pl-version 1.3 Tillgänglig redaktörservice. Skriv in H eller ”H-H” för hjälp eller ”perldocperldebug” för mer hjälp. huvudsakligt:: (- e: 1): 0 DB<1> v 1==> 0 DB<1> V $/= ', ', FileHandle (stderr) =>fileno (2) %SIG = ( ”ABRT-” =>undef ”ALRM-” =>undef ”AVBROTTS” =>undef ”BUSSA” => KODIFIERAR (0x19e1504) - > &CODE (0x19e1504) in??? ”CHLD-” =>undef ”Cld-” =>undef ”CONT” =>undef ”FPE-” =>undef ”HUP-” =>undef ”SJUK” =>undef ”Int-” => KODIFIERAR (0x19beb34) - > &DB:: fånga i 0 ”DÖDA” =>undef Undef för => ”NUM05” Undef för => ”NUM06” Undef för => ”NUM07” Undef för => ”NUM10” Undef för => ”NUM12” Undef för => ”NUM16” Undef för => ”NUM17” Undef för => ”NUM18” Undef för => ”NUM19” Undef för => ”NUM24” ”LEDA I RÖR” =>undef ”AVSLUTAD” =>undef ”SEGV-” => KODIFIERAR (0x19e1504) - > REUSED_ADDRESS ”STOPPA” =>undef ”BENÄMNA” =>undef ”WINCH” =>”readline:: get_window_size”, ”__DIE” => KODIFIERAR (0x19e1934) - > &DB:: dbdie i 0 ”__WARN” => KODIFIERAR (0x19e1734) - > &DB:: dbwarn i 0 ) $^L = ”\ cL”, $^ = ”OUT_TOP”, $$ = 16540 $ \ = '', $ - = 0 @ - = ( 0 tomma springa 1 tomma springa tom springa 2 ) $! = ”inget sådan sparar eller arkivet”, $^X = ”C:\ \ Perl \ \ slänga i soptunnan \ \ perl.exe”, $^UNICODE = 0 $^V = v5.10.0 $= = 60 $2 = '', $^WARNING_BITS = ”\ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@”, FileHandle (stdin) =>fileno (0) @INC = ( 0 ”C: /Perl/site/lib”, 1 ”C: /Perl/lib”, 2 ”.”, ) %INC = ( ”ActivePerl/Config.pm” => ”C: /Perl/lib/ActivePerl/Config.pm”, ”ActiveState/Path.pm” => ”C: /Perl/lib/ActiveState/Path.pm”, ”AutoLoader.pm” => ”C: /Perl/lib/AutoLoader.pm”, ”C: /Perl/site/lib/sitecustomize.pl” => ”C: /Perl/site/lib/sitecustomize.pl”, ”Carp.pm” => ”C: /Perl/lib/Carp.pm”, ”Carp/Heavy.pm” => ”C: /Perl/lib/Carp/Heavy.pm”, ”Config.pm” => ”C: /Perl/lib/Config.pm”, ”Config_heavy.pl” => ”C: /Perl/lib/Config_heavy.pl”, ”Cwd.pm” => ”C: /Perl/lib/Cwd.pm”, ”DBI.pm” => ”C: /Perl/lib/DBI.pm”, <--------------------->