Ошибка

[Гость]

После запуска 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.

[Гость]

А-а-а...

Это перл у тебя кривой.

У тебя в модуле CGI ошибка.

[Гость]

А-а-а...

Это перл у тебя кривой.

У тебя в модуле CGI ошибка.

[Гость]

а совет ?

что делать то ?

[Гость]

а совет ?

что делать то ?

[Гость]

Обнови модуль CGI ...

[Гость]

Обнови модуль CGI ...

[Гость]

.

[Гость]

.