Форум: "Потрепаться";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
ВнизПроблемы с перлом! Шо делать? Найти похожие ветки
← →
Merlin (2002-03-11 07:14) [1]
$FileName = "..."; # Имя файла
sub GetPage
{ my $page = shift;
open(F, "+< $FileName") || return;
flock(F, 2); # Блокируем файл для записи
my @tmp = <F>; # считываем весь файл
$tmp[$page-1]++; # увеличиваем счетчик
seek(F, 0, 0); # В начало файла
print F join("", @tmp); # сохраняем новые значения
truncate F, tell F; # обрезаем "хвост" на всякий случай
flock(F, 8); # Разблокируем файл
close(F);
print "Location: /page$page.html\n\n"; # Переходим на страницу page{n}.html
}
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c