http://www.perlmonks.org?node_id=991887


in reply to Re: HTML::Template with checkbox
in thread HTML::Template with checkbox

Could you show me how to get the the names of checkbox or filenames with your added value="<TMPL_VAR NAME ="filename">"

Replies are listed 'Best First'.
Re^3: HTML::Template with checkbox
by rpnoble419 (Pilgrim) on Sep 05, 2012 at 19:49 UTC
[reply]

      I used it and it did not return any values

      @files = $q->param("field");

      There is no values in @files.

      I feel very frustrated.
[reply]

        bebewinla

        This is a down and dirty example. You should taint the data in production. Here is my example.

        HTML file 

        <html lang="cs">
  <head>
  </head>
  <body>
    <form action="new6.pl">
    <input type="checkbox" name="field" value="Red"> Red<br>
    <input type="checkbox" name="field" value="Blue"> Blue<br>
    <input type="checkbox" name="field" value="Green"> Green<br>
    <input type="checkbox" name="field" value="Yellow"> Yellow<br>
    <input type="submit">
    </form>
  </body>
</html>

        [download]

        Perl Code 

        #!/usr/bin/perl
use strict;
use CGI qw/:standard :html4/;
use CGI::Carp qw ( fatalsToBrowser );  

my $query = new CGI; 
print $query->header();

&logit($0." has started" );
&logit("=======================");
&logit($0." ".query_string());


my @values = $query->param('field');
my $ColorCount=@values;

print "Colors Selected: ".$ColorCount."<br>";

foreach my $item (@values)
{
  print "Colors: ".$item."<br>";

}

exit;

        [download]

        Output 

        Colors Selected: 4
Colors: Red
Colors: Blue
Colors: Green
Colors: Yellow

        [download]

        I hope this helps

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom