|
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
