in reply to Saving and storing form params with cgi.pm
#!/usr/bin/perl -w use strict; use CGI qw(:html3); open ('QUERY', '<query.txt') || die "Cannot open: $!"; my $q = new CGI ('QUERY'); close QUERY; BEGIN { use CGI::Carp qw(carpout fatalsToBrowser); open (LOG, ">errorlog.txt") or die ("Unable to open errorlog.txt: $!\n"); carpout(\*LOG); } open (QUERY, '>query.txt') || die "Cannot open: $!"; $q->save('QUERY'); print $q->header(); print $q->start_html(); print $q->startform("post",'eventform.cgi'); print $q->textfield(-name=>'field_name', -size=>50, -maxlength=>80); print $q->submit(-name=>'button_name', -value=>'value'); print $q->endform; print $q->end_html(); close QUERY;
$PM = "Perl Monk's";
$MCF = "Most Clueless Friar";
$nysus = $PM . $MCF;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Saving and storing form params with cgi.pm
by bjelli (Pilgrim) on May 25, 2001 at 17:37 UTC | |
|
Re: Re: Saving and storing form params with cgi.pm
by nysus (Parson) on May 25, 2001 at 17:41 UTC | |
by arturo (Vicar) on May 25, 2001 at 18:00 UTC |