Вопросик по Perl-у

[Anonymous]

На сайте есть лист меню <select name="select"> <option>Новости</option> <option>Архив</option></select> и кнопочка "Вперед" как делать так что-бы выбрав определенный пункт меню и нажав кнопку перемещаться на другую страницу (например новости или архив)?

[Anonymous]

#!/usr/bin/perl
###########################
sub extract_qs
{
   my @split = split (/&/, $qs);
   foreach $split (@split)
    {
($query_key, $query_value) = split (/=/, $split);
$query_value =~ tr/+/ /;
$query_value =~ s/%([\dA-Fa-f][\dA-Fa-f])/ pack ("C", hex ($1))/eg;
$query_key =~ tr/+/ /;
$query_key =~ s/%([\dA-Fa-f][\dA-Fa-f])/ pack ("C", hex ($1))/eg;
$query{$query_key} = $query_value;
    }
}
###########################
sub error
{
   my $err = $_[0];
   print <<error_;
..somehing..
error_
# на месте ...something... идет хтмл ошибки
   exit(0);
}
###########################
sub get_query
{
   if ($ENV{'REQUEST_METHOD'} eq "GET")
    {
$qs = $ENV{'QUERY_STRING'};
    }
   elsif ($ENV{'REQUEST_METHOD'} eq "POST")
    {
read(STDIN, $qs, $ENV{'CONTENT_LENGTH'});
    }
   &extract_qs;
}
###########################
sub header
{
   print "Content-Type: text/html; encoding: koi8-r\n\n";
}
###########################
sub action
{
   if($query{'go_to'} eq 'news')
    {
       open(F,"somwhere/news.html");
       @text = <F>;
       close(F);
       print @text;
    }
   elsif($query{'go_to'} eq 'archive')
    {
       open(F,"somwhere/archive.html");
       @text = <F>;
       close(F);
       print @text;
    }
   else
    {
       &error('не то');
    }
}
&get_query;
&header;
&action;

Извините, не могу разобраться с нормальным отображением в форуме.
Все-таки хотя бы здесь ввод хтмл должен быть выключен...

(Отредактировал(а) Iron - 8:28 - 29 Авг., 2002)

[Anonymous]

Ух ты, какая дырочка...

Или так надо?


По-моему, это опасно...

[Anonymous]

Предупреждать надо, что ввод хтмл включен...

А от приколы всякие!

[Anonymous]

Ой -ееее, тут кода....  я вроде проще нашел.

<Form METHOD="POST" ACTION="/cgi-bin/твой скрипт.pl">
<Select Name="query">
<option value="1">Str1
<option value="2">Str2
</Select>
<Input type="submit" value="Вперед">
</form>
В скрипте "твой скрипт.pl" обрабатываеш параметр query и вадаеш нужную страницу.


че скажете???

[Anonymous]

Form METHOD="POST" ACTION="/cgi-bin/твой скрипт.pl">
Select Name="query">
option value="1">Str1
option value="2">Str2
/Select>
Input type="submit" value="Вперед">
/form>
В скрипте "твой скрипт.pl" обрабатываеш параметр query и вадаеш нужную страницу.


во вроде нормально почти а то бред выходит.

(Отредактировал(а) BArS - 3:14 - 30 Авг., 2002)

[Anonymous]

Хотя IMHO это гораздо проще сделать жава-скриптом...
Почти как здесь.