|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Kirill Timofeev 2:5050/144.9 12 May 2003 20:49:45 To : Alexander Ilyankin Subject : Re^2: Счетчик -------------------------------------------------------------------------------- 09 мая 2003 18:20, Alexander Ilyankin писал Nikolay Archakov: NA>> Люди, подскажите пожалyйста чайникy, как оpганизовать счетчик? AI> Делается это таким образом: AI> Допустим тебе нужно сощетать сколько раз загружалась инет-страница... AI> Создаём файл count.txt с цифрой "0" . AI> В скрипте открываем файл count.txt, смотрим что за цифра там написана AI> и передаём это число какой-нибудь переменной, например $count. open AI> (TXTFILE, "count.txt"); $count = <TXTFILE>; close(TXTFILE); Далее мы AI> увеличиваем число написанное в файле count.txt на 1. $count++; Когда AI> увеличили число нужно его сохранить в этот же файл т.е. перезаписать AI> это число. open (TXTFILE, ">count.txt"); print TXTFILE AI> "$count"; close(TXTFILE); Hу и любой счетчик должен чтото показывать, AI> делаем это так: print "$count"; Вот такие дела, Nikolay :) А ещё прикольнее изменять константу прямо в теле программы (: Bye Alexander! ... Жизнь зашибись: бьет ключом, но я пока уворачиваюсь. --- GoldED+/W32 1.1.5-20020104 * Origin: Have a nive DAY, DOS and try to have a nive WINDOWS (2:5050/144.9) Вернуться к списку тем, сортированных по:
Архивное /ru.cgi.perl/33563ebfc2bc.html, оценка из 5, голосов 10
|