Вопрос : Не смогите обнаружить местонахождение DBI.pm в @INC

Hi,

I am пытаясь использовать запланированные задачи (cron) в plesk послать ежедневную памятку к адресу электронная почта для дней рождения в моем офисе, Кодего
The ниже, когда оно бежит я получают, что ошибку при слежении message.

Can обнаруживает местонахождение DBI.pm в @INC (@INC содержит: C: /Program хранит/параллели/Plesk/Additional/Perl/lib c: /Program хранит/параллели/Plesk/Additional/Perl/site/lib.) на \ testserver \ линии 4.
l/>BEGIN потерпело неудачу--составление выкинуло на \ testserver \ линии 4.

I C:\inetpub\vhosts\httpdocs email2.pl проверяло для того чтобы увидеть если DBI установлено using perl командование - MCPAN -

I e «установленного DBI» получает реакцию DBI будет последним (1.611)

Can, котор вы пожалуйста помогаете?
class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class=
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:
># " class= " id= " codeSnippet712574
connect («dbi: mysql: $DATABASE: localhost: 3306», «$USERNAME», «$PASSWORD»);

# если удостоверением личности будет int, то, это должно быть «удостоверение личности = 0» но если оно чарсом или varchar, то оно правильно
мо $settings1 = $dbh->prepare («выберите * от установок ГДЕ удостоверение личности = «0» ");  
$settings1->execute ();  

# в виду того что вы выбираете * должны включить удостоверение личности, только вы не имейте удостоверение личности в этом списке.
# принимать его будет первым полем в рядке, я добавлял его
пока (мо ($ID, $Path, $Ops_Email, $From_Email, $Subject, $Monthly_Email, $Email_Reminders) = $settings1->fetchrow_array ()) {

	# движение дальше если мы не делаем что-нибыдь
	затем если == 1 $Email_Reminders или == 1 $Monthly_Email;

	# ежедневно памятки
	если (== $Email_Reminders 1) {, то

		# мы добавим старт и конец тела только если были любые дни рождения сегодня
		мо ($dailycount, $body);
		$sth->execute ();
		пока (мо ($Name, $Address, City, $State, $Postal, Country, $B_Date) = $sth->fetchrow_array ()) {  
			# добавьте одно к $dailycount
			$dailycount++;

			# получите как раз год $B_Date путем получать освобождан всего после первой черточки
			(мо $B_Year = $B_Date) =~ s/-.*//;
			мо $age = $yy - $B_Year;

			$body. = «$Name (повороты $age!)\ n»;

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

		# не пошлите любые если никакие
		если ($dailycount > 0) {, то
			$body = <new (
				От =>$From_Email,
				К =>$To_Email,
				Вопрос =>$Subject,
				Данные =>$body
			);
			### посылает в дороге «самое лучшее» (невыполнение обязательства должно использовать «sendmail»):
			$msg->send;
		}
	}
	# памятки конца ежедневные 

	# сделайте ежемесячные памятки если он первый из месяца
	если (== $dd 1) {, то
		################  
		# MONTHLYEMAIL #  
		################  

		# подготовьте вопрос  
		мо $sthMonthly = $dbh->prepare («выберите * от teamdates ГДЕ `B_Date `ЛЮБИТ «%-$mm-%» ");  

		# исполните вопрос  
		$sthMonthly->execute ();  

		# мы добавим старт и конец тела только если были любые дни рождения сегодня
		мо ($monthcount, $body);
		пока (мо ($Name, $B_Date) = $sthMonthly->fetchrow_array ()) {
			$monthcount++;

			# получите как раз год $B_Date путем получать освобождан всего после первой черточки
			(мо $B_Year = $B_Date) =~ s/-.*//;
			мо $age = $yy - $B_Year;
			$body. = «$Name (повороты $age2!) $B_Date \ n»;
		};  
		если ($monthcount) {, то

			Тело почты ##  
			мо $body = <new (
				От =>$From_Email,
				К =>$Ops_Email,
				Вопрос =>$Subject,
				Данные =>$body
			);
			### посылает в дороге «самое лучшее» (невыполнение обязательства должно использовать «sendmail»):
			$msg->send;
		}
	}
}
class=

Ответ : Не смогите обнаружить местонахождение DBI.pm в @INC

Здесь моя любимейшая выходка для того чтобы обусловить где Module.pm, котор вам обнаружено местонахождение.

perl - MDBI - d - e0 и после этого печатают v на машинке на подсказке debugger, тогда обнаруживают местонахождение модуль и свой ассоциированный курс:

Посмотрите ниже для транскрипта…


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

Режимы DB нагрузки от варианта 1.3 perl5db.pl
Имеющяяся поддержка редактора.

Впишите h или «h h» для помощи, или «perldebug perldoc» для больше помощи.

основа:: (- e: 1):   0

  DB<1> v
1==>    0

  DB<1> V
$/= '
'
Fileno => FileHandle (stderr) (2)
%SIG = (
   Undef => «ABRT»
   Undef => «ALRM»
   Undef => «ПРОЛОМА»
   КОДИЙ => «ШИНЫ» (0x19e1504)
      - > &CODE (0x19e1504) внутри???
   Undef => «CHLD»
   Undef => «CLD»
   «CONT» undef =>
   Undef => «FPE»
   Undef => «HUP»
   «БОЛЬНОЕ» undef =>
   КОДИЙ => «INT» (0x19beb34)
      - > &DB:: задвижка в 0
   Undef => «УБИЙСТВА»
   Undef => «NUM05»
   Undef => «NUM06»
   Undef => «NUM07»
   Undef => «NUM10»
   Undef => «NUM12»
   Undef => «NUM16»
   Undef => «NUM17»
   Undef => «NUM18»
   Undef => «NUM19»
   Undef => «NUM24»
   Undef => «ТРУБЫ»
   «ПРЕКРАЩЕННОЕ» undef =>
   КОДИЙ => «SEGV» (0x19e1504)
      - > REUSED_ADDRESS
   «ОСТАНОВИТЕ» undef =>
   «ТЕРМИН» undef =>
   Readline» => ««ВОРОТА:: get_window_size»
   КОДИЙ => «__DIE» (0x19e1934)
      - > &DB:: dbdie в 0
   КОДИЙ => «__WARN» (0x19e1734)
      - > &DB:: dbwarn в 0
)
$^L = «\ cL»
$^ = «OUT_TOP»
$$ = 16540
$ \ = ''
$ - = 0
@ - = (
   0  пустых шлицев
   1  пустой шлиц
   пустой  шлиц 2
)
$! = «отсутствие такие архив или директория»
$^X = «C:\ \ Perl \ \ \ ящика \ perl.exe»
$^UNICODE = 0
$^V = v5.10.0
$= = 60
$2 = ''
$^WARNING_BITS = «\ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@ \ c@»
Fileno => 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»
   «Вырезуб/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»  <--------------------->
           
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
  •  Шнур ошибки в блоке задвижки?
  •  сколько вариант сервера SQL на одной машине
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
  •  Активно директория DNS записывает вопрос
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
  •  Прокладчик OCE 9400 не начинает
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
  •  VB6 к VS2010 - консультации тренировки?
  •  
    programming4us programming4us