VPF::Как сделать счетчик посещений?

Nab

Дата 21.12.2006, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 26
Всего: 37

Вообщето если бы у вас не было DB_File, то перл бы так и сказал...
А тут не понятно...
попробуйте первые строки изменить так:

Код


#!z:/usr/Perl/bin/perl -w

use strict;
use DB_File;
use CGI qw(param);

--------------------

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

Олюнчик

Дата 21.12.2006, 14:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 16.12.2006

Репутация: 1
Всего: 1

Цитата

[Thu Dec 21 14:51:42 2006] [error] [client 127.0.0.1] BEGIN failed--compilation aborted at z:\LOCALH~1\cgi-bin\counter.pl line 4.

Код


#!z:/usr/Perl/bin/perl -w

use strict;
use DB_File;
use CGI qw(param);

my %counter = ();
my $count = 0;
my $page  = param('page');

tie(%counter, "DB_File", "/server/localhost/cgi-bin") or die $!;
if (exists $counter{$page} ) {
    $count = ++$counter{$page};
} else {
    $count = $counter{$page} = 1;
}
untie(%counter);
print "Content-type: text/html\n\n";
print $count;

Видимо, ему что-то не нравится тут 'use CGI qw(param);'

Добавлено @ 14:54
А ошибка 500

Цитата

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, webmaster@localhost and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

--------------------------------------------------------------------------------

Apache/1.3.20 Server at localhost Port 80

Nab

Дата 21.12.2006, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 26
Всего: 37

Да нет, тут ошибка вроде на DB_File? он у вас вообще стоит?

Попробуйте просто вот такую команду:

Код


perl -MDB_File

У меня правда, он на нее вот так ругается:

Код


Can't locate DB_File.pm in @INC (@INC contains: d:/bin/perl/lib d:/bin/perl/site /lib .).
BEGIN failed--compilation aborted.

--------------------

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

Олюнчик

Дата 21.12.2006, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 16.12.2006

Репутация: 1
Всего: 1

Попробовала. Вот.

Цитата

[Thu Dec 21 15:41:28 2006] [error] [client 127.0.0.1] BEGIN failed--compilation aborted.

Код


#!z:/usr/Perl/bin/perl -MDB_File

Nab

Дата 21.12.2006, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 26
Всего: 37

ЭЭЭЭЭ, нет smile

Это:

Код


perl -MDB_File

нужно выполнить просто из командной строки вашей виндоус....... smile

--------------------

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

Олюнчик

Дата 21.12.2006, 22:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 16.12.2006

Репутация: 1
Всего: 1

Ребята! Спасибо!
Я разобралась!!!

smile

Nab

Дата 22.12.2006, 01:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 26
Всего: 37

Цитата(Олюнчик @ 21.12.2006, 22:50

)

ебята! Спасибо!Я разобралась!!!

Какая толковая девушка smile

Только не забудьте закрыть тему....

--------------------

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »