You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
65 lines
1.9 KiB
Perl
65 lines
1.9 KiB
Perl
#Input Type Attributes
|
|
#CHECKBOX NAME, VALUE
|
|
#FILE NAME
|
|
#HIDDEN NAME, VALUE
|
|
#IMAGE SRC, VALUE, ALIGN
|
|
#PASSWORD NAME, VALUE
|
|
#RADIO NAME, VALUE
|
|
#RESET NAME, VALUE
|
|
#SELECT NAME, OPTION SIZE, MULTIPLE
|
|
#SUBMIT NAME, VALUE
|
|
#TEXT NAME SIZE, MAXLENGTH
|
|
#TEXTAREA NAME, SIZE ROWS, COLS
|
|
|
|
|
|
<html><head>
|
|
<title>First CGI Form</title></head>
|
|
<body>
|
|
<form action="index.pl" >
|
|
Name:<input type="text" name="namestring">
|
|
Desc: <br>
|
|
<textarea name="comments"></textarea>
|
|
Food:
|
|
<input type="radio" name="choice" value="burger"/>Hamburger
|
|
<input type="radio" name="choice" value="fish"/>Fish
|
|
<input type="radio" name="choice" value="steak"/>Steak
|
|
<input type="radio" name="choice" value="yogurt"/>Yogurt
|
|
</p> <b>Choose a work place:</b> <br>
|
|
<input type="checkbox" name="place" value="la"/>Los Angeles
|
|
<input type="checkbox" name="place" value="sj"/>San Jose
|
|
<input type="checkbox" name="place" value="sf" checked/>San Francisco
|
|
<select name="location">
|
|
<option selected value="hawaii"/> Hawaii
|
|
<option value="bali"/>Bali
|
|
<option value="maine"/>Maine
|
|
<option value="paris"/>Paris
|
|
</select>
|
|
<p>
|
|
<input type="submit" value="submit">
|
|
<input type="reset" value="clear">
|
|
</body>
|
|
</form>
|
|
</html>
|
|
|
|
<html>
|
|
<head><title>First CGI Form</title></head>
|
|
<body>
|
|
<form action="form1.cgi" method=get>
|
|
Please enter your name: <br>
|
|
<input type="text" size=50 name="Name">
|
|
Please enter your phone number: <br>
|
|
<input type="text" size=30 name="Phone">
|
|
<input type=submit>
|
|
<input type=reset value="Clear">
|
|
</form>
|
|
</body>
|
|
|
|
|
|
#!c:/ActivePerl/bin/perl.exe
|
|
print "Content-type: text/html\n\n";
|
|
print "Processing CGI form :\n\n";
|
|
# Print out only the QUERY_STRING environment variable
|
|
while(($key, $value)=each(%ENV)){
|
|
print "<h3>$key = <em>$value</em></h3><br>"
|
|
if $key eq "QUERY_STRING";
|
|
} |