Форум: "Потрепаться";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];
ВнизCGI Найти похожие ветки
← →
Light Elf (2001-12-21 22:08) [16]И в чем проблема?
код на Perl
-------
#!/usr/bin/perl
------------
open (FILE, "+<counter.log"); # открыли файл-счетчик
$count = <FILE>; # считали значение счетчика
truncate (FILE, 0); # обрезали файл по самые гланды
seek (FILE, 0,0); # переместили указатель в начало файла
++$count; # увеличили значение счетчика
print FILE $count; # сохранили новое значение
close FILE; # закрыли файл
print "Content-type: text/html\n\n";
print $count; # вывели на экран значение счетчика
Для вас проблема повторить это на Delphi?
Если добавить 3-5 строк, то будет и блокировка файла счетчика.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c