Re^4: Building data structures from CGI params

[fullermd]

I don't think they have any particular name for it. Just referred to as 'arrays from forms' or the like.

PHP also understands arrays in the context of form variables (see the related faq). You may, for example, group related variables together, or use this feature to retrieve values from a multiple select input. For example, let's post a form to itself and upon submission display the data:

(and following "Example #3" on http://us2.php.net/manual/en/language.variables.external.php)

Related FAQ is How do I create arrays in a HTML <form>?

The AnotherArray array will now contain the keys 0, 1, email and phone.

(for those lucky enough not to have PHP on the brain, PHP's "array" serves as both a perl 'array' and 'hash')

[Anonymous Monk]

Well, that doesn't exactly match your syntaxt, but I found
Read more... (1057 Bytes)
Ok, here is a start (with help from Corion)

#!/usr/bin/perl --

use strict;
use warnings;
use CGI;
use Data::Dump::Streamer;

Main(@ARGV);
exit(0);

BEGIN {
    my %queries = (
# PHP::HTTPBuildQuery
# URL decoded: "foo[bar]=baz", "foo[quick][quack]=schmack"
        "foo%5Bbar%5D=baz&foo%5Bquick%5D%5Bquack%5D=schmack" => {
            foo => {
                bar   => "baz",
                quick => { "quack" => "schmack" },
            },
        },

    );

    sub Main {
        for my $query ( keys %queries ) {
            my $q = CGI->new($query);
            print $query, "\n", Dump( $queries{$query}, parse_str($q) 
+), "\n";
        }
    } ## end sub Main
} ## end BEGIN

sub parse_str {
    my ($q) = @_;
    my %params;

    for my $k ( $q->param ) {
        my @v     = $q->param($k);
        my $level = \%params;

#~ my @k = grep length, split /\[([^\[]+)\]/, $k;
#~ use DDS; warn Dump( { " $k   => ", [ $k =~ /([^\[\]]+)/g ] } );
        my @items = $k =~ /([^\[\]]+)/g;
        my $key = pop @items;
        for (@items) {
            $level->{$_} ||= {};
            $level = $level->{$_};
        }
        $level->{$key} = \@v;
    } ## end for my $k ( $q->param )
    return \%params;
} ## end sub parse_str

__END__
foo%5Bbar%5D=baz&foo%5Bquick%5D%5Bquack%5D=schmack
$HASH1 = { foo => {
           bar   => 'baz',
           quick => { quack => 'schmack' }
         } };
$HASH2 = { foo => {
           bar   => [ 'baz' ],
           quick => { quack => [ 'schmack' ] }
         } };