|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 23 Apr 2002 13:59:01
To : George Shuklin
Subject : Re: Обнуление счётчика.
--------------------------------------------------------------------------------
Здравствуй, George Shuklin.
GS> Как ТАКОЕ может быть? Hе понимаю. В какой-то момент обpазуется файл
GS> нулевого pазмеpа :(
GS> #!/usr/bin/perl
GS> #textcounter (main)
GS> $file="counter1.txt";
GS> $count=0;
Эта строка не нужна.
GS> open (STAT,"+< $file") or die "Content-type:text/html\n\n";
А эта - бессмысленна. die пишет не в то же место, что print.
GS> flock (STAT,2);
GS> $count=<STAT>;
GS> close (STAT);
GS> if ($count!=0){
GS> $count++;
GS> open (STAT,">$file");
Вот в этот момент его размер равен нулю. И flock уже не работает, поскольку
файл уже закрыт. Другой вопрос, что непонятно, как нулевой размер при этом
может достаточно долго выживать, поскольку после truncate туда непременно
что-нибудь непустое (а именно результат $count++, что минимум 1 да пишется).
GS> print STAT $count;
GS> close (STAT);
GS> print "Content-type:text/html\n\n";
GS> print "<b>",$count,"</b>";
GS> }
GS> else {print "Content-type:text/html\n\n";}
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Обнуление счётчика.