Радиокнопка перейти к другому файлу на Submit - PullRequest
Новая
       5

Радиокнопка перейти к другому файлу на Submit

0 голосов
/ 10 июня 2018

Я пишу сценарий Perl CGI.Моя страница index должна отображать набор переключателей в форме и переходить на другую страницу / файл в соответствии с выбранной кнопкой.

Я не могу найти правильный способ сделать это.

Вот мой код: 

#!/usr/bin/perl

print "<!DOCTYPE html>";
print "<html>";
print "<body>";
print "<h1> Welcome to Magnum </h1>";
print "<h2> System Check </h2>";
print "<h2> -------------------- </h2>";

print "<form method='post'>";
print "<input type='radio' name='option' value='process' formaction='/home/john/www/process'/ > View My Process<$
print "<input type='radio' name='option' value='calendar'> View Calendar <br>";
print "<input type='radio' name='option' value='location'> View my location coordinates<br> Latitude and Altitud$
print "<input type='radio' name='option' value='users'> View all users connected on my System<br>";
print "<input type='radio' name='option' value='find'> Find a file or Directory<br>";

print "<input type='submit' name='submit' value='Submit'> <br>";


print "</form>";
print "<h2> -------------------- </h2>";
print "</body>";
print "</html>";

Он должен быть написан так, как нас учили.Если ответ включает в себя что-то слишком другое, то это не поможет,

Ответы [ 2 ]

0 голосов
/ 11 июня 2018

Вот код высокого уровня, который может помочь. 

#!/usr/bin/perl

use strict;
use warnings;

# Use functions from CGI.pm to make your life easier
use CGI qw[header redirect param];

# Hash containing valid redirection values.
my %valid_redirects = map { $_ => 1 } qw[process calendar location
                                       users find];

# Get the chosen option
my $option = param('option');

# If we've a) got an option and b) it's a valid option
# then redirect to the chosen page.
if ($option and $valid_redirects{$option}) {
  # You'll need to write a redirect_to() subroutine
  print redirect_to("$option.html");
} else {
  # If we don't have a valid redirection option, display the form.
  # You'll need to write an html_form() subroutine
  print header;
  print html_form();
}
0 голосов
/ 10 июня 2018

Вот предлагаемое решение.

Создайте отдельную подпрограмму для каждой опции переключателя.Создайте таблицу отправки, используя эти подпрограммы.Выполните соответствующую подпрограмму таблицы отправки на основе отправки формы.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Нет похожих вопросов

...