Перейти к содержанию

Ошибка


Гость

Рекомендуемые сообщения

После запуска perl-скрипта, в httpd/error_log появляеся ошибка

Prototype mismatch: sub main::head ($) vs none at /usr/lib/perl5/vendor_perl/5.8.0/CGI.pm line 241.

Что она значит, и что делать ?

Скрипт работает !!!

Ссылка на комментарий
Поделиться на другие сайты

После запуска perl-скрипта, в httpd/error_log появляеся ошибка

Prototype mismatch: sub main::head ($) vs none at /usr/lib/perl5/vendor_perl/5.8.0/CGI.pm line 241.

Что она значит, и что делать ?

Скрипт работает !!!

Ссылка на комментарий
Поделиться на другие сайты

Как он работает если вылетает _ошибка_ (не предупреждение, не замечание, а именно ошибка).

Ты код полный дал бы что ли...

P.S.: Задолбали всякие, adm..., root..., admin.... В наше время так сложно ник нормально придумать?! Да, похоже минуло то время, когда админы и руты в перле разбирались без форумов...

Ссылка на комментарий
Поделиться на другие сайты

Как он работает если вылетает _ошибка_ (не предупреждение, не замечание, а именно ошибка).

Ты код полный дал бы что ли...

P.S.: Задолбали всякие, adm..., root..., admin.... В наше время так сложно ник нормально придумать?! Да, похоже минуло то время, когда админы и руты в перле разбирались без форумов...

Ссылка на комментарий
Поделиться на другие сайты

#!/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.

Ссылка на комментарий
Поделиться на другие сайты

#!/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.

Ссылка на комментарий
Поделиться на другие сайты

  • 4 месяца спустя...

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Загрузка...
×
×
  • Создать...