Cuestión : No puede localizar DBI.pm en @INC

Hola, el

I que intenta utilizar las tareas programadas (cron) en plesk de enviar un recordatorio diario a un email address para los cumpleaños en mi oficina, código del
The está abajo, cuando me funciona con consigue el error siguiente message.

Can para no localizar DBI.pm en @INC (el @INC contiene: C: /Program archiva/los paralelos/Plesk/Additional/Perl/lib C: /Program archiva/los paralelos/Plesk/Additional/Perl/site/lib.) en el \ testserver \ línea 4.
l/>BEGIN falló--¿la compilación abortó en el \ testserver \ línea 4.

I de C:\inetpub\vhosts\httpdocs de email2.pl ha comprobado para considerar si DBI está instalado usar el Perl del comando - MCPAN - el

I de e “DBI instalado” consigue la respuesta DBI es (los 1.611)

Can que usted ayuda por favor?
class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del
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:
¡># notpretty " del class= " del id= " codeSnippet712574 del
connect (“dbi: mysql: $DATABASE: localhost: 3306”, “$USERNAME”, “$PASSWORD”);

# si la identificación es una internacional, éste debe ser “identificación = 0” pero si es un carbón de leña o varchar, él está correcto
mi $settings1 = $dbh->prepare (“seleccionar * de los ajustes DONDE identificación = “0” ");  
$settings1->execute ();  

# puesto que usted está seleccionando * que debe incluir la identificación, solamente usted no tener identificación en esta lista.
# si se asume que la es el primer campo en la fila, yo la ha agregado
mientras que (mi ($ID, $Path, $Ops_Email, $From_Email, $Subject, $Monthly_Email, $Email_Reminders) = $settings1->fetchrow_array ()) {

	# movimiento encendido si no estamos haciendo cualquier cosa
	después a menos que == 1 de $Email_Reminders o == 1 de $Monthly_Email;

	# diariamente recordatorios
	si (== de $Email_Reminders 1) {

		# agregaremos el comienzo y el extremo del cuerpo solamente si había algunos cumpleaños hoy
		mi ($dailycount, $body);
		$sth->execute ();
		mientras que (mi ($Name, $Address, City, $State, $Postal, Country, $B_Date) = $sth->fetchrow_array ()) {  
			# agregar uno al $dailycount
			$dailycount++;

			# conseguir apenas el año de $B_Date librándose todo después de la primera rociada
			(mi $B_Year = $B_Date) =~ s/-.*//;
			mi $age = $yy - $B_Year;

			$body. = “$Name (vueltas $age!)\ n”;

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

		# no enviar cualesquiera si no hay ninguno
		si ($dailycount > 0) {
			$body = <new (
				De =>$From_Email,
				A =>$To_Email,
				Tema =>$Subject,
				Datos =>$body
			);
			El ### envía de la manera del “mejor” (el defecto es utilizar el “sendmail”):
			$msg->send;
		}
	}
	# recordatorios diarios del final 

	# hacer los recordatorios mensuales si es el primer del mes
	si (== de $dd 1) {
		################  
		# MONTHLYEMAIL #  
		################  

		# preparar la pregunta  
		mi $sthMonthly = $dbh->prepare (“seleccionar * de los teamdates DONDE el `de B_Date del `TIENE GUSTO “del %-$mm-%” ");  

		# ejecutar la pregunta  
		$sthMonthly->execute ();  

		# agregaremos el comienzo y el extremo del cuerpo solamente si había algunos cumpleaños hoy
		mi ($monthcount, $body);
		mientras que (mi ($Name, $B_Date) = $sthMonthly->fetchrow_array ()) {
			$monthcount++;

			# consiguen apenas el año de $B_Date librándose todo después de la primera rociada
			(mi $B_Year = $B_Date) =~ s/-.*//;
			mi $age = $yy - $B_Year;
			$body. = “$Name (vueltas $age2!) $B_Date \ n”;
		};  
		si ($monthcount) {

			Cuerpo del correo del ##  
			mi $body = <new (
				De =>$From_Email,
				A =>$Ops_Email,
				Tema =>$Subject,
				Datos =>$body
			);
			El ### envía de la manera del “mejor” (el defecto es utilizar el “sendmail”):
			$msg->send;
		}
	}
}
class= del

Respuesta : No puede localizar DBI.pm en @INC

Aquí está mi truco preferido para determinar dónde se localiza el Module.pm que usted necesita.

Perl - MDBI - d - e0 y después mecanografían V en el aviso de la depuración, después localizan el módulo y su trayectoria asociada:

Mirar abajo para una transcripción…


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:
>perl de C:\Documents and Settings\jerome - MDBI - d - e0

Rutinas del DB del cargamento de la versión 1.3 de perl5db.pl
Ayuda del redactor disponible.

Incorporar h o “h h” para la ayuda, o el “perldebug del perldoc” para más ayuda.

cañería:: (- e: 1):   0

  DB<1> v
1==>    0

  DB<1> V
$ = '
'
Fileno del => de FileHandle (stderr) (2)
%SIG = (
   Undef del => de “ABRT”
   Undef del => de “ALRM”
   Undef del => de la “ROTURA”
   CÓDIGO del => del “AUTOBÚS” (0x19e1504)
      ¿- > &CODE (0x19e1504) adentro???
   Undef del => de “CHLD”
   Undef del => del “CLD”
   Undef “CONTINUADO” del =>
   Undef del => de “FPE”
   Undef del => de “HUP”
   Undef “ENFERMO” del =>
   CÓDIGO del => de la “internacional” (0x19beb34)
      - > &DB:: retén en 0
   Undef del => de la “MATANZA”
   Undef del => “NUM05”
   Undef del => “NUM06”
   Undef del => “NUM07”
   Undef del => “NUM10”
   Undef del => “NUM12”
   Undef del => “NUM16”
   Undef del => “NUM17”
   Undef del => “NUM18”
   Undef del => “NUM19”
   Undef del => “NUM24”
   Undef del => de la “PIPA”
   Undef “PARADO” del =>
   CÓDIGO del => de “SEGV” (0x19e1504)
      - > REUSED_ADDRESS
   “PARAR” el undef del =>
   “LLAMAR” el undef del =>
   ” Readline del => “del “TORNO:: get_window_size”
   CÓDIGO del => del “__DIE” (0x19e1934)
      - > &DB:: dbdie en 0
   CÓDIGO del => del “__WARN” (0x19e1734)
      - > &DB:: dbwarn en 0
)
$^L = “\ cL”
$^ = “OUT_TOP”
$$ = 16540
$ \ = ''
$ - = 0
@ - = (
   0  ranuras vacías
   1  ranura vacía
   ranura  vacía 2
)
¡$! = “ningún tal archivo o directorio”
$^X = “C:\ \ Perl \ \ \ \ perl.exe del compartimiento”
$^UNICODE = 0
$^V = v5.10.0
$= = 60
$2 = ''
$^WARNING_BITS = “\ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@”
Fileno del => de FileHandle (stdin) (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”
   “Carpa/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”  <--------------------->
           
Otras soluciones  
 
programming4us programming4us