Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Вниз

Проблемы с перлом! Шо делать? 


Феликс   (2002-03-10 13:43) [0]

Епрст! Пытаюсь сделать одну по-моему мнению простую вещь, но ничего не получается. Пытаюсь сделать вот что. Человек вызывает скрипт http://pupkin.ru/cgi-bin/get.pl?get=1 при этом скрипт не долго думаю делает следующиее: из файла test.txt в котором в столбике находятся цифры
1
2
4
7
2
3
достает цифры из первой строки пребовляет к этому числу 1 (т.е получается 1+1=2), сохраняет 2 там же (т.е в первой строке) и переходит на страницу page1. Соответсвенно если человек вызывает скрипт с параметрами http://pupkin.ru/cgi-bin/get.pl?get=3, то скрипт берет число из 3 строки (т.е 4) прибовляет 1, сохраняет новое значение в 3 строке и переходит на страницу page3. Как такое сделать? Подскажите если не трудно!



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
}



Феликс   (2002-03-11 17:18) [2]

Спасибо Мерлин, очередной раз вы мне помогли. Еще раз Спасибо!




Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.03 c
1-57771           inko                  2002-04-05 18:57  2002.04.18  
Как программно зажать клавишу Shift и держать?


3-57641           Kuzmich               2002-03-28 15:17  2002.04.18  
ADO и WebServices - вещи несовместимые?


1-57688           Durak                 2002-04-07 19:22  2002.04.18  
Где достать инфу по флэшу ???


1-57769           Ник                   2002-04-04 22:28  2002.04.18  
Нажата ли клавиша-стрелка


1-57665           VID                   2002-04-03 23:02  2002.04.18  
Чтение значения переменной, созданной другой программой