Informationen via Link an ein Perlscript übergeben

[R. Urban]

&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;
}
}
##############################################################

<a href="../cgi-bin/Formular.pl?Key=Webdesign">Neues Thema</a>

Daraus folgt:

$DATA{$Key}=Webdesign

Gruß aus Berlin
                     Ralf