diff options
| author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-06-16 06:44:29 +0000 |
|---|---|---|
| committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2015-06-16 06:44:29 +0000 |
| commit | f9f3ab3056d94292adb4ab2e1451645bee989769 (patch) | |
| tree | cc5a62954d359d5aad449420bc7ec259b3edb79e /examples/wikipedia_example.cgi | |
| download | CGI-tarball-master.tar.gz | |
Diffstat (limited to 'examples/wikipedia_example.cgi')
| -rwxr-xr-x | examples/wikipedia_example.cgi | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/examples/wikipedia_example.cgi b/examples/wikipedia_example.cgi new file mode 100755 index 0000000..fe17a79 --- /dev/null +++ b/examples/wikipedia_example.cgi @@ -0,0 +1,40 @@ +#!/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>'; |