Hi all,
I'm studying the "Learning Perl Second Edition" and I'm learning cgi now.
The book presents a sample cgi that doesn't produces the expected result as
the book says it would.
Could someone test it and say to me if there is something wrong?
The following script was retired from the section 19.6 "Form Generation".
#!/usr/bin/perl -w
# cgi-bin/ice_cream: program to answer *and generate* ice cream
# favorite flavor form (version 3)
use CGI qw(:standard);
my $favorite = param("flavor");
print header, start_html("Hello Ice Cream"), h1("Hello Ice Cream");
if ($favorite) {
print q("Your favorite flavor is $favorite.");
} else {
print hr, start_form; # hr() emits html horizontal rule: <HR>
print q("Please select a flavor: ", textfield("flavor","mint"));
print end_form, hr;
}
Thanks for any help,
-------------------------------------------------
-- Bruno Negrão -- Suporte
-- Plugway Acesso Internet Ltda.
-- (31)34812311
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
