|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : HB 2:5020/400 02 Aug 2001 22:46:47 To : All Subject : Re: :( -------------------------------------------------------------------------------- George Shuklin wrote in <996721699@f1377.n5030.z2.ftn>... >#!/usr/local/bin/perl >#textcounter >$file="counter1.txt"; >open (STAT,"$file"); >$count=<STAT>; >close (STAT); >$count++; >open (STAT,">$file"); >print STAT $count; >close (STAT); >print "Content-type:text/html\n\n"; >print "<br><br>?ы <b>",$count,"</b> посетитель с 1.07.2001"; >Был примитивный счетчик на перле. Hо сейчас уже третий раз сбрасывается, >из-за слишком частых запросов :(((( Что делать? 1) Hе писать впредь Subject, который не говорит ни о чем и сбивает с толку. 2) Читать FAQ не реже 1-го раза в год. Хотя бы в високосный ;-) perldoc -q increment -- HB mailto:npecca@yahoo.com?subject=Usenet --- ifmail v.2.15dev5 * Origin: VoronezhSvyazInform ISP (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/63074fac320f.html, оценка из 5, голосов 10
|