1#@!#!123s

: / proc / thread-self / root / usr / share / doc / perl-CGI / examples /

Filename : wikipedia_example.cgi

back

#!/usr/bin/env perl

use strict;
use warnings;

use CGI;

my $cgi = CGI->new;

print $cgi->header('text/html');

print << "EndOfHTML";
<!DOCTYPE html
	PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
	"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"
>
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
	<head>
		<title>A Simple CGI Page</title>
		<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
	</head>
	<body>
		<h1>A Simple CGI Page</h1>
		<form method="post" enctype="multipart/form-data">
			Name: <input type="text" name="name"  /><br />
			Age: <input type="text" name="age"  /><p />
			<input type="submit" name="Submit!" value="Submit!" />
		</form>
		<hr />
EndOfHTML

if ( my $name = $cgi->param('name') ) {
    print "Your name is $name.<br />";
}

if ( my $age = $cgi->param('age') ) {
    print "You are $age years old.";
}

print '</body></html>';

Name	Size	Last Modified	Owner	Permissions
clickable_image.cgi	1.404 KB	May 23 2016 7:58:56	root	0644
cookie.cgi	2.74 KB	May 23 2016 7:58:56	root	0644
crash.cgi	0.154 KB	May 23 2016 7:58:56	root	0644
file_upload.cgi	2.387 KB	October 13 2016 1:49:56	root	0644
mojo_proxy.pl	0.786 KB	May 23 2016 7:58:56	root	0644
wikipedia_example.cgi	0.9 KB	May 23 2016 7:58:56	root	0644
wilogo.gif	0.447 KB	May 23 2016 7:58:56	root	0644

2017 © D7net \| D704T team