Informationen via Link an ein Perlscript übergeben

[Philipp Hasenfratz]

&get_data;
sub get_data {
$data=$ENV{'QUERY_STRING'};
@fields = split(/&/,$data);
foreach $fields(@fields){
  ($field_name,$field_val)=split(/=/,$fields);
$field_val=~ tr/+/ /;
$field_val=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$DATA{$field_name}=$field_val;
}
}
##############################################################

Hm. Ich kann das in drei Zeilen:

use CGI;
my $cgi= new CGI;
%DATA = $cgi->Vars;

hehe *g*

Was habt ihr eigentlich gegen CGI.pm?

Viele Grüsse

Philipp