VPF::Помогите чайнику - Форум программистов

X-Team

Дата 16.10.2004, 23:26 (ссылка)

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

Загрузка ...

Новичок

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

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

Можно сделать так что занчения комбо бокс брались из файла (как угодно через запятую , с новой строки)
прим.
<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<option>1 строка из файла</option>
<option>2 строка из файла</option>
</select>

СПАСИБО.

korob2001

Дата 17.10.2004, 01:49 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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

Допустим есть файл combo.txt, который содержит следуюшие строки:

1 строка из файла
2 строка из файла
3 строка из файла
4 строка из файла
5 строка из файла
6 строка из файла

Строк может быть сколько угодно. Чем больше строк, тем больше список (комбо бокс).

А вот код, который создаст этот Combo box:

Код


#!/usr/bin/perl
use strict;
my $file = "combo.txt"; # Путь к файлу со списком
print qq(Content-type: text/html\n\n); # Заголовок

# Выводим начало html кода
print qq(<html><head><title>Пример списка</title></head>\n);
print qq(<body><center>\n);
print qq(<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">\n);

# Открываем файл или умираем с музыкой
open( FILE, "< $file") or die $!;
  # Циклически проходим по каждой строке файла
  while (<FILE>) {
             # Удаляем символ перевода строки
             chomp;
             # На каждой итерации выводим <option>строка</option>
             # В нашем случае строка содержится в переменной $_
             print qq(<option>$_</option>\n);
  }
# Закрываем файл или умираем с музыкой
close( FILE ) or die $!;

# Выводим нижнюю часть страницы.
print qq(</select></center></body></html>);

Теперь всё это дело сохрани в каталог /cgi-bin, запусти сервер и наслаждайся.

Удачи.

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

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

X-Team

Дата 17.10.2004, 08:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Хорошо спасибо

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