Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
No such thing as a small change
 
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;


Comment on Re: CGI question
Download Code
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 wandering the Monastery: (6)
As of 2014-04-20 06:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls