Pytanie : Móc DBI.pm w @INC

Cześć,

I am dołączony zadanie (cron) w plesk dzienny przypomnienie adres emaila dla urodziny w mój biuro,
The kod być mój, gdy ono biegać I dostawać the następujący błąd message.

Can DBI.pm w @INC (@INC zawierać: C: /Program Kartoteka/Paralela/Plesk/Additional/Perl/lib C: /Program Kartoteka/Paralela/Plesk/Additional/Perl/site/lib.) przy C:\inetpub\vhosts\httpdocs \ testserver \ email2.pl kreskowy 4.
BEGIN nie udać się--kompilacja przerywać przy C:\inetpub\vhosts\httpdocs \ testserver \ email2.pl kreskowy 4.

I sprawdzać jeżeli DBI instalować using the rozkaz perl - MCPAN - e "instalować DBI"

I dostawać the odpowiedź DBI być nowomodny (1.611)

Can ty zadawalać pomoc?
(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:
#! /usr/local/bin/perl  

używać surowy;
używać DBI;
używać CGI;
use MIM:: Lite;

używać POSIX qw (strftime);
mój $mmddyyyy = strftime ("%m/%d/%Y", localtime);
mój $mm = strftime ("%m", localtime);
mój $dd = strftime ("%d", localtime);
mój $yy = strftime ("%Y", localtime);

 # Wchodzić Do Baza danych info
 mój $USERNAME = "888";
 mój $PASSWORD = "888";
 mój $DATABASE = "888";

mój $dbh = DBI->connect ("dbi: mysql: $DATABASE: localhost: 3306", "$USERNAME", "$PASSWORD");

# jeżeli ID być int, ono musieć "ID = (0)" ale jeżeli ono być char lub varchar, ono być poprawny
mój $settings1 = $dbh->prepare ("wybiórka * Od położenie DOKĄD ID = "(0)" ");  
$settings1->execute ();  

# ponieważ ty wybierać * który musieć ID, ale ty mieć ID w ten lista.
# Ono być the pierwszy pole w the rząd, I dodawać ono
podczas gdy (mój ($ID, $Path, $Ops_Email, $From_Email, $Subject, $Monthly_Email, $Email_Reminders) = $settings1->fetchrow_array ()) {

	# ruch dalej jeżeli my robić ruch
	następnie jeśli $Email_Reminders == (1) lub $Monthly_Email == (1);

	# Dziennie Przypomnienie
	jeżeli ($Email_Reminders == 1) {

		# My dodawać the początek i końcówka the ciało tylko jeżeli tam  być jakaś urodziny dzisiaj
		mój ($dailycount, $body);
		$sth->execute ();
		podczas gdy (mój ($Name, $Address, City, $State, $Postal, Country, $B_Date) = $sth->fetchrow_array ()) {  
			# Dodawać jeden the $dailycount
			$dailycount++;

			# Dostawać właśnie the rok $B_Date pozbywać się dostawać po tym jak the pierwszy junakowanie
			(mój $B_Year = $B_Date) =~ s/-.*//;
			mój $age = $yy - $B_Year;

			$body. = "$Name (Zwrot $age!)\ n";

		}
		$sth->finish;
		$body. = "\ n";

		# wysyłać wcale jeżeli tam  być jeżeli
		jeżeli ($dailycount > (0)) {
			$body = <new (
				Od =>$From_Email,
				=>$To_Email,
				Podległy =>$Subject,
				Dane =>$body
			);
			### Wysyłać w the "najlepszy" sposób (the brak być "sendmail"):
			$msg->send;
		}
	}
	# końcówka Dzienny Przypomnienie 

	# Robić miesięczny przypomnienie jeżeli ono być the pierwszy the miesiąc
	jeżeli ($dd == 1) {
		################  
		# MONTHLYEMAIL #  
		################  

		# przygotowywać the zapytanie  
		mój $sthMonthly = $dbh->prepare ("wybiórka * Od teamdates DOKĄD `B_Date `LUBIĆ "%-$mm-%" ");  

		# wykonywać the zapytanie  
		$sthMonthly->execute ();  

		# My dodawać the początek i końcówka the ciało tylko jeżeli tam  być jakaś urodziny dzisiaj
		mój ($monthcount, $body);
		podczas gdy (mój ($Name, $B_Date) = $sthMonthly->fetchrow_array ()) {
			$monthcount++;

			# Dostawać właśnie the rok $B_Date pozbywać się dostawać po tym jak the pierwszy junakowanie
			(mój $B_Year = $B_Date) =~ s/-.*//;
			mój $age = $yy - $B_Year;
			$body. = "$Name (Zwrot $age2!) $B_Date \ n";
		};  
		jeżeli ($monthcount) {

			## Poczta Ciało  
			mój $body = <new (
				Od =>$From_Email,
				=>$Ops_Email,
				Podległy =>$Subject,
				Dane =>$body
			);
			### Wysyłać w the "najlepszy" sposób (the brak być "sendmail"):
			$msg->send;
		}
	}
}

Odpowiedź : Móc DBI.pm w @INC

Tutaj być mój ulubiony sztuczka dokąd the Module.pm ty potrzebować lokalizować.

perl - MDBI - D - e0 i wtedy pisać na maszynie V przy the debugger podpowiedź, then lokalizować the moduł i swój kojarzony ścieżka:

Spojrzenie kopia dla kopia…


(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

DB rutyna od perl5db.pl wersja 1.3
Redaktor poparcie dostępny.

Wchodzić Do h lub "h h" dla pomoc, lub "perldoc perldebug" dla więcej pomoc.

magistrala:: (- e: 1):   (0)

  DB<1> v
1==>    (0)

  DB<1> V
$/= '
'
FileHandle (stderr) => fileno (2)
%SIG = (
   "ABRT" => undef
   "ALRM" => undef
   "PRZERWA" => undef
   "AUTOBUS => KOD (0x19e1504)
      - > &CODE (0x19e1504) wewnątrz???
   "CHLD" => undef
   "CLD" => undef
   "UNDEF" => undef
   "FPE" => undef
   "HUP" => undef
   "CHORY" => undef
   "INT" => KOD (0x19beb34)
      - > &DB:: chwyt w (0)
   "ZWŁOKI" => undef
   "NUM05" => undef
   "NUM06" => undef
   "NUM07" => undef
   "NUM10" => undef
   "NUM12" => undef
   "NUM16" => undef
   "NUM17" => undef
   "NUM18" => undef
   "NUM19" => undef
   "NUM24" => undef
   "DRYMBA" => undef
   "REZYGNOWAĆ" => undef
   "SEGV" => KOD (0x19e1504)
      - > REUSED_ADDRESS
   "PRZERWA" => undef
   "TERMIN" => undef
   "WINCH" => "readline:: get_window_size"
   "__DIE" => KOD (0x19e1934)
      - > &DB:: dbdie w (0)
   "__WARN" => KOD (0x19e1734)
      - > &DB:: dbwarn w (0)
)
$^L = "\ cL"
$^ = "OUT_TOP"
$$ = 16540
$ \ = ''
$ - = (0)
@ - = (
   (0)  pusty szczelina
   (1)  pusty szczelina
   2  pusty szczelina
)
$! = "Żadny taki kartoteka lub książka telefoniczna"
$^X = "C:\ \ Perl \ \ kosz \ \ 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"
   "Karp/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"  <--------------------->
           
Inne rozwiązania  
 
programming4us programming4us