|
#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";
}
|