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/