in reply to HTML forms
Why don't you just try and see wheter it works? But yes, you can print straight HTML.
#!/usr/bin/perl -w use strict; use CGI qw/:standard/; my $q = new CGI; print header, start_html; if($q->param('name')) { print h1("You becha this works.!"), p("You entered: ". $q->param('n +ame')); } else { print<<END <form action="test.cgi" method="POST"> <table> <tr> <td><input type="text" name="name"></td> </tr> </table> <input type="submit"> </form> END ; } print end_html;
update: Removed <readmore> tags, for there wasn't that much more to read.
|
---|