Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: CGI question

by Khen1950fx (Canon)
on Feb 08, 2013 at 21:01 UTC ( #1017885=note: print w/ replies, xml ) Need Help??


in reply to CGI question

How about this?
#!/usr/bin/perl -T use strict; use warnings; use CGI qw/:standard/; my $q = new CGI; print $q->header; print $q->start_html('Animal'); print <<'END'; <html> <head> <title>Animal</title> </head> <body> <form action="cgi-bin/animal.cgi" METHOD=POST> Which animal? <INPUT type="text" name="animal"> <P><INPUT type="submit"> </form> </body> </html> END print "Show me the <INPUT> ", 'animal', " </INPUT>\n"; print $q->end_html;

Replies are listed 'Best First'.
Re^2: CGI question
by Anonymous Monk on Feb 09, 2013 at 05:37 UTC

    Thanks I will give this a go

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1017885]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2016-06-25 03:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...











    Results (323 votes). Check out past polls.