CGIScript.net :: Automate your website for less!

Perl Form Variable Extractor Go to www.cgiscript.net for more free tools!
Description: Use this code to extract the fields submitted on an html form. It can also be used to parse the information after the '?' in the url. Example: script.cgi?command=test&data=50 would extract the 'command=test' and the 'data=50'.
Directions: Follow Steps 1 and 2 below. Use the 'Grab Text' buttons to select the code within the adjacent textarea. Then use Control-C or Edit -> Copy to buffer the text for pasting into your document.

Usage (Step 1): Add this code to the beginning of your script. After this
subroutine is run, all the variables extracted will be contained within the
%in associative array. It the above example, it would extract
$in{'command'} and it would equal 'test' and $in{'data'} and it would
equal '50'.

Format:
$in{'form_variable'}= variable_value

Then use Control-C to copy the text into your web page.
&getdata;

Code (Step 2): Add the following code somewhere within your script.

Then use Control-C to copy the text into your web page.
sub getdata{ # Read in text if ($ENV{'REQUEST_METHOD'} eq "GET") { $in = $ENV{'QUERY_STRING'}; } elsif ($ENV{'REQUEST_METHOD'} eq "POST") { for ($i = 0; $i < $ENV{'CONTENT_LENGTH'}; $i++) { $in .= getc; } } @in = split(/&/,$in); foreach $i (0 .. $#in) { # Convert plus's to spaces $in[$i] =~ s/\+/ /g; # Convert %XX from hex numbers to alphanumeric $in[$i] =~ s/%(..)/pack("c",hex($1))/ge; # Split into key and value. $loc = index($in[$i],"="); $key = substr($in[$i],0,$loc); $val = substr($in[$i],$loc+1); $in{$key} .= '\0' if (defined($in{$key})); # \0 is the multiple separator $in{$key} .= $val; } }