Question

我想使用一个按钮发布数据，该按钮从选中复选框的行中获取数据。我只是可以选择它们并提醒某些值，但不知道如何发布它们。我使用perl而不想使用ajax。我该怎么办？

my $script = qq{
\$('#id').change(function() {
var checkboxes = \$(":input[type=checkbox]");

if(\$(this).is(':checked')) {
    checkboxes.attr('checked', 'checked');
} else {
    checkboxes.removeAttr('checked');
}
});


\$("#button").click(function(){
    var checkboxes = \$(":input[type=checkbox]");
    \$.each( checkboxes, function( index ) {
        if(\$(this).is(':checked')) {
            alert( \$(this).attr('class') );
        }

    });
});
};

my $q= new CGI;

my @aRows = ();

my $oCheckAll = $q->input({-type => 'checkbox', -name => 'sel_all', -id =>'id', }, 'Select All');


# Add header of table
push @aRows, (
   $q->Tr($q->th([$oCheckAll, 'Name', 'Surname', 'DB'])),   
);

# Add table rows
for(my $i=0; $i<4; $i++) {
   push @aRows, (
      $q->Tr($q->td([$q->input({-class => 'act'.$i, -value => $i, -type => 'checkbox' }), "EMR", "MB", $i]))
   );
}

print $q->style(".table th, td { width: 25%;}");

print $q->table({-class => 'table', -border => 1, -width => '100%'}, \@aRows);
print $q->button(
        -id       => 'button',
        -name     => 'submit_form',
        -value    => 'click',
    );

print $q->script($script)

如何发布复选框选中的数据

0 个答案: