代码之家 › 专栏 › 技术社区 › John

单选按钮提交时转到其他文件

perl html

-6

John · 技术社区 · 8 年前

我在写一个PerlCGI脚本。我的 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 回复 | 直到 8 年前

Borodin 8 年前

#!/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();
}

Ron Bergin 8 年前

推荐文章

code-geek · Jquery根据单选按钮选择隐藏或显示文本字段

1 年前

Jamie · 在CSS链接的文件名中添加Jinja占位符

1 年前

ptownbro · 重叠分区标签,同时保持以下所有分区和内容就位

1 年前

Luke Frost IEng MIMechE · Bootstrap 5.3在Div中的项目位置没有如我所期望的那样显示

1 年前

Reegan · 使用Angular ngFor指令在html中渲染嵌套对象值

1 年前

wqyutv · 当找不到文件时,任何破坏错误的东西都不会出现,我该怎么解决这个问题?

1 年前

user29519291 · 为不同的变量创建一个带有可重用Click函数的简单菜单

1 年前

Gukkey · 在React中明确隐藏日期类型输入后,如果我单击父div,如何显示日期选择器?

1 年前

Lorenzo Bertolaccini · 在Angular项目中通过对话框后,在控制台中显示但在HTML中不显示的数据数组

1 年前

john Rizzo · 按钮背景颜色、悬停和活动状态存在问题

1 年前