Posting Non displayed checkbox values to next program in Perl CGI

Question

I am a newbie in Perl CGI . My code is shown below .

#!c:/xampp/perl/bin/perl.exe
use warnings;
use CGI;
my $q = CGI->new; 
print $q->header;
print "<html><head><title>Test</title></head>\n";
print '<body>';
@server = $q->param('sel');
if (!@server) 
{
    print '<p> please select a checkbox</p>';
    exit;
}
else
{
    print '<form action="next.pl" method="POST" id="sel" >';
    foreach my $i (@server) {
        print '<input type="checkbox" name="DEL"   value="';
        print $i;
        print ' checked ">';
        print $i;
        print '<br />';
    }
    print '<input type="submit" value="Kill">';      
    print '<form>';
    print '</body></html>';
}

In the first part of the code i am getting the list of checkboxes ticked from the previous program using the checkbox name "sel" and storing it in an array server. I am using the same array in foreach loop and making it a checkbox with a name.

Now in my above code I don't want the checkboxes to be displayed . I want only submit button to be displayed. When i click the submit button i want my checked checkboxes in the form to go to next page.

How can i achive this . Please help .

Can me Please Give me an example . Its not clear on how to create a hidden checkbox — user3095218

imran imran · Accepted Answer · 2014-05-06T13:41:41

One way to hide the checkboxes is to use a <span> tag:

use strict;
use warnings;
use CGI;
my $q = CGI->new; 
print $q->header;
print $q->start_html(-title => 'Test');
my @server = $q->param('sel');
if (!@server) {
    print $q->p('please select a checkbox');
    print $q->end_html();
    exit;
} else {
    print $q->start_form(-method => "POST", 
                         -action => "next.pl",
                         -id => "sel");
    print $q->span({hidden=>1},
          $q->checkbox_group(-name => "DEL",
                             -values => \@server,
                             -default => \@server,
                             ));
    print $q->submit(-name => "submit",
                     -value => "Kill");      
    print $q->end_form();
    print $q->end_html();
}

I do prefer using the HTML building methods that CGI.pm provides. Helps to keep HTML out of the Perl.

Posting Non displayed checkbox values to next program in Perl CGI

1 Answers