Posted By: RoboShim (ICQ #: 166 703 40) on 'CZscripts' Title: Re: scriptik .. nejlip PERLovej na zpracovani FORMU Date: Sat Apr 17 16:49:48 1999 > potrebuju viz subj :) > diky:) *** mam dojem, ze tohle uz jsem ja nebo nekdo tady psal, ale opakovani je matka moudrosti: tohle je funkce z lib-cgi.pl, ktera rozkuskuje promenny z formulare do hashe %in, ale muzes si to predelat podle svyho, je to jednoduchy. Dyztak se zeptejte. RoboShim ====================== sub ReadParse { local (*in) = @_ if @_; local ($i, $loc, $key, $val); # Read in text if ($ENV{'REQUEST_METHOD'} eq "GET") { $in = $ENV{'QUERY_STRING'}; } elsif ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); } @in = split(/&/,$in); foreach $i (0 .. $#in) { # Convert plus's to spaces $in[$i] =~ s/+/ /g; # Split into key and value. ($key, $val) = split(/=/,$in[$i],2); # splits on the first =. # Convert %XX from hex numbers to alphanumeric $key =~ s/%(..)/pack("c",hex($1))/ge; $val =~ s/%(..)/pack("c",hex($1))/ge; # Associate key and value $in{$key} .= " $in{$key} .= $val; } return 1; # just for fun }