在Perl CGI中处理HTML表单中的PHP样式数组（方括号）

Posted 2021-02-26

This is inspired by this http://www.cgi101.com/book/ch5/text.html so I'm using a similar example. In php you can combine a set of checkboxes into an array using square brackets like this:


Red
Green
Blue
Gold



PHP does not do this automatically but it's pretty simple to do if you filter by regular expressions.

use CGI;  
 
$query = CGI::new(); 
 
my %fields_temp = $query->Vars;
my %fields      = ();
 
foreach my $key (keys %fields_temp) {
    if ( $key =~ /(.+)[]$/ ) { ## Handle PHP style array inputs 
        if(exists $fields{$1}){
            $fields{$1} = $fields{$1} . ",". $fields_temp{$key};
        }
        else{
            $fields{$1} = $fields_temp{$key};
        }        
    }
    else {
	$fields{$key} = $fields_temp{$key};
    }
}
 
foreach my $key (sort keys %fields) {
    unless ($key =~ /(.+)[]$/ ){
	push(@keys, $key);
	push(@values, $fields{$key});
    }
}