VPF::Помогите с выбором и загрузкой файла

agalex

Дата 4.9.2009, 20:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.2.2009

Репутация: нет
Всего: нет

Здравствуйте!

Подскажите пожалуйста.
Мне нужно выбрать регион с списка и какой будет выбор например "Киев" то отобразить файл например ki.html.

Вот так я пытался открыть файл

Код


#!/usr/local/bin/perl
use strict;
use CGI qw(:standard);
my $query=CGI->new();
my $regionT = $query->param('region');
my $file_f;

if($regionT == 'Донецк')
{
$file_f = "do.htm";
}

elsif($regionT == 'Киев')
{
$file_f = "ki.htm";
}

open(FILE, $regionT);

close(FILE);

пример хтмл

Код


<html>
<head>
<title>Украина</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
</head>

<body>
<center>
<form  action="/cgi-bin/region.cgi" method="post">
  <select name="region">
    <option>Винница</option>
    <option>Днепропетровск</option>
    <option>Донецк</option>
    <option>Житомир</option>
    <option>Запорожье</option>
    <option>Ивано - Франковск</option>
    <option>Киев</option>
  </select>
  <input type="submit" name="send" value="Просмотреть"></td>
</form>
</center>
</body>
</html>

kavkaz

Дата 4.9.2009, 23:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 70
Регистрация: 26.12.2007

Репутация: 1
Всего: 2

Хранишь в cgi скрипте хэш с данными, какой файл к какому региону относится:

Код


my %reg = (
   1 => 'ki.htm',
   2 => 'do.htm',
   ...
);

в html обращаешь внимание на атрибут value у тэга <option> (стоит почитать литературу про html). именно это значение будет отправляться в форме
селект принимает подобный вид:

Код


<select name="region">
    <option value="1">Киев</option>
    <option value="2">Донецк</option>
   ...

когда принимаешь в скрипте

Код


my $regionT = $query->param('region');
my $file_f = $reg{ $regionT };
...

DEER

Дата 5.9.2009, 11:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 749
Регистрация: 12.4.2005
Где: г. Рязань

Репутация: 1
Всего: 13

наверно правильнее не

Код


open(FILE, $regionT);

Код


open(FILE, $file_f);

--------------------

agalex

Дата 8.9.2009, 19:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 14.2.2009

Репутация: нет
Всего: нет

Спасибо.
Разобрался.

smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »