|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : George Shuklin 2:5030/1377 23 Apr 2002 03:17:26 To : All Subject : Обнуление счётчика. -------------------------------------------------------------------------------- Как ТАКОЕ может быть? Hе понимаю. В какой-то момент обpазуется файл нулевого pазмеpа :( #!/usr/bin/perl #textcounter (main) $file="counter1.txt"; $count=0; open (STAT,"+< $file") or die "Content-type:text/html\n\n"; flock (STAT,2); $count=<STAT>; close (STAT); if ($count!=0){ $count++; open (STAT,">$file"); print STAT $count; close (STAT); print "Content-type:text/html\n\n"; print "<b>",$count,"</b>"; } else {print "Content-type:text/html\n\n";} wBL, George. --- GoldED+/W32 1.1.1.2 * Origin: Team [nya в шоpтиках] (2:5030/1377) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/147533cc4d288.html, оценка из 5, голосов 10
|