Hi speedy,
Dann musst Du Deine Values evtl. auch die Keys encoden ;-)
foreach (keys(%form)) {
print "<input type="hidden" name="".&Encode($_)."" value="".&Encode($form{$_})."">\n";
}
aus CGI.pm entliehen:
sub Encode {
my $in = shift;
$in =~ tr/ /+/;
$in =~ s/([^&=+$nichzucodierendezeichen])/sprintf("%%%02X",ord($1))/ego; #Url-encoden
return $in;
}
Ich hoffe das war was Du suchtest ;-)
Gruß AlexBausW