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
--
To unsubscribe, e-mail: beginners-cgi-unsubscr...@perl.org
For additional commands, e-mail: beginners-cgi-h...@perl.org
http://learn.perl.org/
