|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Artem Chuprina 2:5020/400 14 May 2003 17:14:18 To : Alexander Ilyankin Subject : Re: Счетчик -------------------------------------------------------------------------------- Здравствуй, Alexander Ilyankin. AI> Привет, Nikolay! NA>> Люди, подскажите пожалyйста чайникy, как оpганизовать счетчик? AI> Делается это таким образом: AI> Допустим тебе нужно сощетать сколько раз загружалась инет-страница... AI> Создаём файл count.txt с цифрой "0" . AI> В скрипте открываем файл count.txt, смотрим что за цифра там написана и AI> передаём это число какой-нибудь переменной, например $count. AI> open (TXTFILE, "count.txt"); AI> $count = <TXTFILE>; AI> close(TXTFILE); AI> Далее мы увеличиваем число написанное в файле count.txt на 1. AI> $count++; AI> Когда увеличили число нужно его сохранить в этот же файл т.е. перезаписать AI> это число. open (TXTFILE, ">count.txt"); print TXTFILE AI> "$count"; close(TXTFILE); Hу и любой счетчик должен чтото показывать, делаем AI> это так: print "$count"; Вот такие дела, Nikolay :) При этом счетчик будет считать попугаев и периодически затираться чушью при одновременных запросах. Впрочем, одно другое компенсирует ;-) -- Artem Chuprina RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757 --- ifmail v.2.15dev5 * Origin: Leninsky 45 home network (2:5020/400) Вернуться к списку тем, сортированных по:
Архивное /ru.cgi.perl/11477affe763c.html, оценка из 5, голосов 10
|