QUERY_STRING in ein Hash?

[Calocybe]

Tag!

%query = ();

sub ReadQueryString() {
    my @args;
    my ($field, $value);

%query = ();
    return unless exists($ENV{'QUERY_STRING'});

@args = split(/&/, $ENV{'QUERY_STRING'});
    for (@args) {
        s/%([0-9A-Fa-f]{2})/chr(hex($1))/ge;
        ($field, $value) = split(/=/, $_);
        $query{$field} = $value;
    }
}

Hoffe das haut so hin.
Calocybe