Cooked Input

The associative array CookedInput represents a request from the client as any number of StandardKeys and their associated values. The server sends us as a string of key=value pairs separated by &s. First we restore spaces, which are encoded as +. (Hoisted out of the loop. --DaveSmith)
  $RawInput =~ s/\+/ /g;
Next we examine each pair in turn.
  foreach $_ (split(/&/, $RawInput)) {
And restore characters that are encoded as %hh (where hh is the hex value of the encoded character).
    s/\%(..)/pack(C, hex($1))/ge;
Now is a good time to blatantly discard any troublesome characters that we give meaning to elsewhere.
We use here //o to save a bit of time. --VladimirAlexiev, just being Perly-anal. Now we can split the pair around the first = and store the value we get (if any) under its corresponding key. If there is no = then the key is set to true.
    ($_, $CookedInput) = split (/=/, $_, 2);
    $CookedInput{$_} = $CookedInput;


Last edited February 10, 1998
Return to WelcomeVisitors