|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Artem Chuprina 2:5020/400 10 May 2001 12:51:20 To : Pavel Reich Subject : Re: Счетчик -------------------------------------------------------------------------------- Здравствуй, Pavel Reich. В твоём письме от Wed, 09 May 2001 12:08:57 +0400 написано: PR> Я Вас приветствую, достопочтимый(ая) All ! PR> Какие основные концепции скрипта сабж? В упрощенном виде представляю так: PR> 1.Открываем файл на r/w, без truncate (то есть "+< $file" в синтаксисе open() до Perl 5.6) PR> 2.Лочим файл С LOCK_EX PR> 3.читаем строку, переводим в число PR> 4.открыли на запись И тут лок пропал... 4. truncate и seek в начало. Впрочем, truncate не обязательно - число+1 всяко не короче, чем число. PR> 5.записали число+1 PR> 6.закрыли файл PR> 7.сняли блокировку Она снялась при закрытии файла. PR> 8.Обрабатываем число:преобразуем в строку и переводим в список PR> 9.нечто наподобие: PR> foreach $digit (@counter) PR> { PR> print <img src="$digit.gif" alt="$digit"></img>"; PR> } PR> Какие хитрости еще могут быть? Еще часто вместо того, чтобы выдавать несколько картинок, выдают одну, на которую собирают число (perldoc GD). PR> Кстати, сколько разрядов обычно у счетчика? У какого как... Hа сайте пионера Васи вполне достаточно десятка (двоичных). -- Artem Chuprina E-mail: ran@ran.pp.ru Programmer FIDO: 2:5020/371.32 Memonet Ltd. Phone: +7-095-284-1356 --- ifmail v.2.15dev5 * Origin: NTV Internet (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/1648317152bcd.html, оценка из 5, голосов 10
|