Гость Опубликовано 21 августа, 2003 Жалоба Опубликовано 21 августа, 2003 После запуска perl-скрипта, в httpd/error_log появляеся ошибка Prototype mismatch: sub main::head ($) vs none at /usr/lib/perl5/vendor_perl/5.8.0/CGI.pm line 241. Что она значит, и что делать ? Скрипт работает !!! Цитата
Гость Опубликовано 21 августа, 2003 Жалоба Опубликовано 21 августа, 2003 После запуска perl-скрипта, в httpd/error_log появляеся ошибка Prototype mismatch: sub main::head ($) vs none at /usr/lib/perl5/vendor_perl/5.8.0/CGI.pm line 241. Что она значит, и что делать ? Скрипт работает !!! Цитата
Гость Опубликовано 22 августа, 2003 Жалоба Опубликовано 22 августа, 2003 Как он работает если вылетает _ошибка_ (не предупреждение, не замечание, а именно ошибка). Ты код полный дал бы что ли... P.S.: Задолбали всякие, adm..., root..., admin.... В наше время так сложно ник нормально придумать?! Да, похоже минуло то время, когда админы и руты в перле разбирались без форумов... Цитата
Гость Опубликовано 22 августа, 2003 Жалоба Опубликовано 22 августа, 2003 Как он работает если вылетает _ошибка_ (не предупреждение, не замечание, а именно ошибка). Ты код полный дал бы что ли... P.S.: Задолбали всякие, adm..., root..., admin.... В наше время так сложно ник нормально придумать?! Да, похоже минуло то время, когда админы и руты в перле разбирались без форумов... Цитата
Гость Опубликовано 23 августа, 2003 Жалоба Опубликовано 23 августа, 2003 #!/usr/bin/perl use LWP::Simple; use Socket; use CGI qw(:standard); my $curNUM = "2077"; my $curID=DefineID(); open (file, "< filess.txt"); # my $site=; @line=; for ($i=0;$i<$#line;$i++){ $site=$site. @line[$i]; }### close file; die "Нет данных! Проверте связь с Интернет!" unless defined $site; $site=~s!$/!!gi; $site=~s[][Прогноз погоды<\/title>]gi; $site=~s[( $site=~s[Если\s+Вы.*<\/form>][<\/form>]gi; #print ''; #print header(),$site; print "Content-type: text/html\n\n"; print $site; вот и код .... Скрипт работает, но в httpd/error_log сообщение пишется вот полное сообщение Prototype mismatch: sub main::head ($) vs none at /usr/lib/perl5/vendor_perl/5.8.0/CGI.pm line 241. Цитата
Гость Опубликовано 23 августа, 2003 Жалоба Опубликовано 23 августа, 2003 #!/usr/bin/perl use LWP::Simple; use Socket; use CGI qw(:standard); my $curNUM = "2077"; my $curID=DefineID(); open (file, "< filess.txt"); # my $site=; @line=; for ($i=0;$i<$#line;$i++){ $site=$site. @line[$i]; }### close file; die "Нет данных! Проверте связь с Интернет!" unless defined $site; $site=~s!$/!!gi; $site=~s[][Прогноз погоды<\/title>]gi; $site=~s[( $site=~s[Если\s+Вы.*<\/form>][<\/form>]gi; #print ''; #print header(),$site; print "Content-type: text/html\n\n"; print $site; вот и код .... Скрипт работает, но в httpd/error_log сообщение пишется вот полное сообщение Prototype mismatch: sub main::head ($) vs none at /usr/lib/perl5/vendor_perl/5.8.0/CGI.pm line 241. Цитата
Гость Опубликовано 23 августа, 2003 Жалоба Опубликовано 23 августа, 2003 А-а-а... Это перл у тебя кривой. У тебя в модуле CGI ошибка. Цитата
Гость Опубликовано 23 августа, 2003 Жалоба Опубликовано 23 августа, 2003 А-а-а... Это перл у тебя кривой. У тебя в модуле CGI ошибка. Цитата
Гость Опубликовано 25 августа, 2003 Жалоба Опубликовано 25 августа, 2003 а совет ? что делать то ? Цитата
Гость Опубликовано 25 августа, 2003 Жалоба Опубликовано 25 августа, 2003 а совет ? что делать то ? Цитата
Гость Опубликовано 26 августа, 2003 Жалоба Опубликовано 26 августа, 2003 Обнови модуль CGI ... Цитата
Гость Опубликовано 26 августа, 2003 Жалоба Опубликовано 26 августа, 2003 Обнови модуль CGI ... Цитата
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.