Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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
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?

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (10)
As of 2015-08-03 06:19 GMT
Find Nodes?
    Voting Booth?

    The oldest computer book still on my shelves (or on my digital media) is ...

    Results (26 votes), past polls