Dokumentation: Common Gateway Interface            © by Michael Rentzsch, 2001

sub getcgivars {

   local(%in) ; local($name, $value) ;

   # Resolve and unencode name/value pairs into %in
   foreach (split('&', $ENV{'QUERY_STRING'})) {

 
     s/\+/ /g ;
     ($name, $value)= split('=', $_, 2) ;
     $name=~ s/%(..)/chr(hex($1))/ge ;
     $value=~ s/%(..)/chr(hex($1))/ge ;
     $in{$name}.= "\0" if defined($in{$name}) ;
     $in{$name}.= $value ;

  }

  return %in ;

}

oben