Андрей Н.
13 сообщений
#17 лет назад
Приветствую всех.
Нужна помощь
Разработчик сдал скрипт, но к нему не дал ни одного пояснения, вернее дал несколько пояснений, но смысл свёлся к (цитирую):
"там названия переменных вполне за себя говорят"

Вот пытаюсь отладить скрипт.
приходит ответ сервера
Can't locate Conf/constants.pm in @INC (@INC contains: /usr/local/lib/perl5/5.8.8/BSDPAN /usr/local/lib/perl5/site_perl/5.8.8/mach /usr/local/lib/perl5/site_perl/5.8.8 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.8.8/mach /usr/local/lib/perl5/5.8.8 .) at /home/warm1/www/site1/cgi-bin/watch.pl line 9.
BEGIN failed--compilation aborted at /home/warm1/www/site1/cgi-bin/watch.pl line 9.


понимаю, что сервер ругается, что не может найти Conf/constants.pm
сам скрипт лежит здесь:
/home/warm/www/site1/cgi-bin/watch.pl

и здесь
/home/warm/www/site1/cgi-bin/Conf/constants.pm

подозреваю, что в происходит несоответствие пути в файле watch.pl и тем где лежит constants.pm
в watch.pl есть такие строки

use strict;
use DBI;
use Mail:: POP3Client;
use MIME:: Parser;
use File::Copy;
use Imager;
use Conf::constants;
use Data:: Dumper;

что ему может не хватать?
Константин Т.
589 сообщений
#17 лет назад
use lib '.';


попробуйте добавить.

но правильнее делать
use FindBin;
use lib ("$FindBin::Bin");



ведь где на самом деле что лежит - не так уж и очевидно.