On Jan 5, 8:33 pm, g...@lazymountain.com (Greg Jetter) wrote:
> On Monday 05 January 2009 2:22:08 pm marys wrote:
>
>
>
>
>
> > Does anyone know how to set up a large number of textfields for data
> > input and then parse them conveniently? In the CGI.pm book it shows
> > how to use the form element 'textfield' like so:
>
> > #!/usr/bin/perl -wT
> > use CGI::Carp qw(fatalsToBrowser);
> > use CGI ':standard';
> > use CGI::Pretty;
> > use strict;
> > use diagnostics;
> > my $x = new CGI;
> > print $x->header;
> > print $x->start_html;
> > print $x->center($x->br, $x->h1("Here are three textfields:\n"),
> > $x->startform(-method=>"POST",-action=>"parsnip.cgi"),
> > textfield(-name=>'X1',-size=>5.),
> > textfield(-name=>'X2',-size=>5.),
> > textfield(-name=>'X3',-size=>5.),
> > $x->p,
> > $x->submit( -name=>"Submit"));
> > print $x->endform;
> > print $x->end_html;
>
> > and I would like to check that the fields contain no special
> > characters:
>
> > #!/usr/bin/perl -wT
> > use CGI::Carp qw(fatalsToBrowser);
> > use CGI qw(:standard -no_xhtml);
> > #use CGI ':standard';
> > use CGI::Pretty;
> > use strict;
> > use diagnostics;
> > my $x = new CGI;
>
> > my $X1=param('X1'); my $X2=param('X2'); my $X3=param('X3');
> > if(
> > ($X1 !~ /^[\d.]+$/) && ($X1 !~ /^\s*$/)
>
> > || ($X2 !~ /^[\d.]+$/) && ($X2 !~ /^\s*$/)
> > || ($X3 !~ /^[\d.]+$/) && ($X3 !~ /^\s*$/) )
>
> > {
> > print $x->header;
> > print $x->start_html(-title=>'parsnip',-bgcolor=>'silver');
> > print $x->font({color=>"blue"});
> > print $x->center( "<br>", $x->h1("Error in input!\n"),
> > $x->h1(" Use digits and decimal points only!\n"),
> > $x->h2(" Exiting!\n") );
> > exit;
> > }else{
> > print $x->redirect(-URL=>'done.cgi');
> > }
>
> > with the 'done.cgi' script:
>
> > #!/usr/bin/perl -wT
> > use CGI::Carp qw(fatalsToBrowser);
> > use CGI qw(:standard -no_xhtml);
> > #use CGI ':standard';
> > use CGI::Pretty;
> > use strict;
> > use diagnostics;
> > my $x = new CGI;
>
> > print $x->header;
> > print $x->start_html(-title=>'done',-bgcolor=>'silver');
> > print $x->font({color=>"blue"});
> > print $x->center( "<br>", $x->h1("Done!\n");
> > exit;
>
> > The problem is that if I want to collect data from lots of textfields,
> > like maybe 100, I get huge, sloppy scripts where I have to do a lot of
> > typing for the variables X1-X100 and I make a lot of mistakes. I bet
> > there's a better way in the Perl world to do this. I tried making an
> > array going from 1 to 100 and calling the variables "X.$_" but it
> > didn't work.
> > Is there a better way that anyone knows about? Thank you.
>
> use a template system like HTML::Template to create you form page , not
> CGI.pm , and process it with CGI.pm . Or use HTML to create your form. if
> your text fields are static and won't change. Something like this you want
> to separate out the presentation of the form from the processing of the form
> input.
>
> Greg- Hide quoted text -
>
> - Show quoted text -
Thanks, Greg. the HTML::Template looks like something that will work.
ms
--
To unsubscribe, e-mail: beginners-cgi-unsubscr...@perl.org
For additional commands, e-mail: beginners-cgi-h...@perl.org
http://learn.perl.org/
