|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Eugen J. Sobchenko 2:5020/400 12 Aug 2000 17:19:45
To : All
Subject : Re: Счетчики посещения
--------------------------------------------------------------------------------
On Wed, 09 Aug 00 00:25:39 +0300, Levin@artis-inventum.de
<Levin@artis-inventum.de> wrote:
>From: "Andrey Levin" <Levin@artis-inventum.de>
>
>Hi All!
>
>Может кто подскажет где можно взять счетчики написанные на перле.
>Очень срочно требуется, а другие (в виде dll или exe) не подходят.
>Или может кто кинет исходник.
>Заранее спасибо,
[cut here]1
#!/usr/bin/perl
### Выше нужно указать полный путь к perl на удаленном сервере.
### чаще всего /usr/local/bin/perl или /usr/bin/perl
## Hиже указана переменная, которая должна
## содержать полный путь к директории в которую
## счетчик будет клась файл cnt.txt.
## В файл cnt.txt будет записываться текущее кол-во посещений на
## ВАШЕМ сайте.
$datadir = "data";
# чтобы запустить скрипт необходимо положить его в директорию
# cgi-bin на сервере и назначить права на запуск. (chmod 777 counter.cgi)
# Дальше трогать ничего не нужно, можно только почитать :)
# Hиже - вызов подпрограммы &add_cnt, которая ведет счет посещений
# и добавляет соотв. число в файл cnt.txt
&add_cnt;
# Hиже - вызов подпрограммы, которая выводит текущее число посещений
# на страницу, которая вызывает данный скрипт
&print_cnt;
# Hиже, собственно, сама подпрограмма, ведущая счет.
sub add_cnt {
open(NUMBER,"$datadir/cnt.txt"); # открываем файл
$num = <NUMBER>; # смотрим номер
close(NUMBER); # закрываем файл
$num++; # прибавляем файл
open(NUM,">$datadir/cnt.txt") || die "What the fuck?: $!"; # Открываем
print NUM "$num"; # записываем данные
close(NUM); # закрываем опять :)
}
# Hиже программа, выводящая данные.
sub print_cnt {
print "Current count: "; # выводим надпись
open(NUMBER,"$datadir/cnt.txt"); # открываем файл с числом
$num = <NUMBER>; # читаем кол-во посещений
close(NUMBER); # закрываем
print "$num\n"; # выводим номер!
}
[cut here]
Hичего проще и быть не может :)
В вызываешь тегом - <!--#exec cgi="path/to/counter.cgi"-->
Только права на запуск не забудь!
Удачи!
>
>Андрей
>Можно по почте на адрес Levin@artis-inventum.de
>ICQ: 25687293.
>
>
>
>
>
--
Regards,
Eugen J. Sobchenko // ejs@paco.net
--- ifmail v.2.15dev5
* Origin: PACOnet (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Счетчики посещения 
