From: "Pau Marc Munoz Torres" <[EMAIL PROTECTED]>
> #! /usr/bin/perl
> #use strict;
> use CGI::Ajax;
> use CGI;
>
> my $q = new CGI;
>
> my $concatter = sub {
>
> my $buffer = $ENV{'QUERY_STRING'};
>
> my @pairs = split( /&/, $buffer );
>
> foreach my $pair (@pairs) {
>
> my ( $name, $value ) = split( /=/, $pair );
>
> $name =~ tr/+/ /;
>
> $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>
> $value =~ tr/+/ /;
>
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>
> $Variables{$name} = $value;
> }
Do not, repeat, do NOT parse the querystring yourself. Let CGI.pm,
CGI::Lite or CGI::Deurl do that for you. Safely.
Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
