Re: a mystery.. need help

[prev] [thread] [next] [Date index for 2005/05/30]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

1. To parse Parameters you should use:
~   a) CGI.pm
~      -----------------------8<-----------------------
~      my $q = new CGI();
~      my %form;
~      foreach( $q->param() ) {
~          $form{$_} = $q->param($_);
~      }
~      -----------------------8<-----------------------
~   b) Apache::Request or Apache2::Request => faster but only available
~      in mod-perl
2. The parameters in your second URL does not make any sense I think
they should be from a multi-selection box at least the braces '(' are
not supported in uris are escaped normally. But CGI can handle those
params fairly easily.
~      ----------------------8<----------------------
~      my @data = $q->param("Data");
~      ----------------------8<----------------------

3. I'd suggest you get:
~   a) a Perl Beginners book
~   b) a mod-perl book

Tom

Luinrandir Insight schrieb:
| OK.. first .. if I have the wrong list.. if this list is just about
moduals
| and apache please forgive.
| I thought this list was about moduals, which I am just learning about.
This
| is a subroutine that is going to go into a package/modual once I get it
| working.
| ALSO... perl is my HOBBY.... my background is GWbasic and pascal from 20
| years ago.
| I do not have a degree... so be nice to me.
|
| This piece of code is suppossed to take the Data from the Query string...
| $Data = $ENV{QUERY_STRING};
| and assign the value to the the vars.
| I am trying to move away from the commented out stuff below to something
| more strealine.
| I want to change my QUERY_STRING from:
| ca.cgi?PlayerName=Luinrandir&TownName=Avalon&Location=Castle&Action=Move
| to
| ca.cgi?Data(2)=Luinrandir&Data(3)=Avalon&Data(5)=Castle
|
| and this is the sub (to be modual) that is going to handle the data.
|
| sub ParseInput  # from previous page
| {
|     @pairs = split ( /&/, $Data );
|     foreach $pair(@pairs)
|     {
|         ( $name, $value ) = split ( /=/, $pair );
|   #changes plus sign to space
|         $name =~ tr/+/ /;
|         $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
|         #$name =~ tr/\0//d;
|         $value =~ tr/+/ /;
|         $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
|         #$value =~ tr/\0//d;
|          $form{$name} = $value;
|     }
|
| ### new code???#####
|  foreach $v0(0 .. 150)
|  {
|         if ($Data[$v0] eq "")
|         {
|             $Data[$v0] = $form{Data($v0)}; <<<<<<< this line does not work
|         }
|  }
|
| #### old code #####
| #        $Data[2]    = $form{PlayerName};
| #        $Data[3]    = $form{TownName};
| #        $Data[5]    = $form{Location};
|
| }
|
|
|

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.0 (GNU/Linux)
Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org

iD8DBQFCmsbakVPeOFLgZFIRAkJHAJwLv147CABrL5Kuuv2BEgkua0dGhwCguW6P
oE1TuXL/TQvw3S+vzdb9COQ=
=2IPy
-----END PGP SIGNATURE-----