Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > Помогите чайнику

Автор: X-Team 16.10.2004, 23:26

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

СПАСИБО.

Автор: korob2001 17.10.2004, 01:49

Допустим есть файл 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

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