View Single Post
  #6 (permalink)  
Old 10-17-06, 07:38 PM
Drunken Perl Coder Drunken Perl Coder is offline
Wannabe Coder
 
Join Date: Aug 2006
Posts: 110
Thanks: 0
Thanked 0 Times in 0 Posts
a simple example based on your simple example:

Code:
#!/usr/bin/perl

use CGI qw/:standard/;
my $Test = param('Test') || undef;

print header,
      start_html('HTML form'),
qq~<FORM NAME="form1" METHOD="POST">
    <INPUT TYPE="TEXT" NAME="Test" VALUE="" SIZE="18" MAXLENGTH="50"> <br>
    <INPUT TYPE="SUBMIT" NAME="submit" VALUE="Go!">
</FORM>

<FORM NAME="form2" METHOD="POST">
is: <INPUT TYPE="TEXT" NAME="blah" VALUE="$Test" SIZE="16" MAXLENGTH="50">
</FORM>~,
end_html;
The script prints the forms instead of trying to use a static html page. This is much simpler than what you propose unless you switched to PHP.
Reply With Quote