Perl CGI Input Test




Value of Perl variable @ARGV   (URL Method):         ()


Data read from Perl <STDIN>   (POST Method):        


Value of Perl variable $ENV{QUERY_STRING}   (GET Method):        


Real, Effective UID

UID30
EUID30


Key,Value pairs from Perl Variable %ENV

DOCUMENT_ROOT /srv/www/htdocs
GATEWAY_INTERFACE CGI/1.1
HTTP_ACCEPT text/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
HTTP_ACCEPT_CHARSET ISO-8859-1,utf-8;q=0.7,*;q=0.7
HTTP_ACCEPT_ENCODING gzip
HTTP_ACCEPT_LANGUAGE en-us,en;q=0.5
HTTP_CACHE_CONTROL no-cache
HTTP_CONNECTION close
HTTP_HOST www.sp.uconn.edu
HTTP_PRAGMA no-cache
HTTP_USER_AGENT CCBot/1.0 (+http://www.commoncrawl.org/bot.html)
HTTP_X_CC_ID ccc04-02
PATH /sbin:/usr/sbin:/usr/local/sbin:/opt/gnome/sbin:/root/bin:/usr/local/bin:/usr/bin:/usr/X11R6/bin:/bin:/usr/games:/opt/gnome/bin:/opt/kde3/bin:/usr/lib/mit/bin:/usr/lib/mit/sbin:/usr/lib/qt3/bin
PATH_INFO /
PATH_TRANSLATED /srv/www/htdocs/index.htm
QUERY_STRING  
REMOTE_ADDR 38.107.191.119
REMOTE_PORT 40189
REQUEST_METHOD GET
REQUEST_URI /~jrifkin/cgi-bin/argtest/
SCRIPT_FILENAME /u/jrifkin/cgi-bin/argtest
SCRIPT_NAME /~jrifkin/cgi-bin/argtest
SERVER_ADDR 137.99.26.78
SERVER_ADMIN [no address given]
SERVER_NAME www.sp.uconn.edu
SERVER_PORT 80
SERVER_PROTOCOL HTTP/1.1
SERVER_SIGNATURE
Apache/2.2.3 (Linux/SUSE) Server at www.sp.uconn.edu Port 80
SERVER_SOFTWARE Apache/2.2.3 (Linux/SUSE)


POST Form:

    POST values are read via the Perl <STDIN> input stream.

    Box 1:         Box 2:    



GET Form:

    GET values are read via the environmental varable $ENV{QUERY_STRING}
        The values also are appended to the URL.

    Box 1:         Box 2:    

Perl Code Examples 

#  Read GET variables into %arg
for (split /\&/, $ENV{QUERY_STRING}) {
   ($key,$val) = split /=/;
   $val =~ s/+/ /g;
   $val =~ s/%([0-9a-fA-F]{2})/chr(hex($1))/ge;
   $arg{$key} = $val;
}



#  Read POST variables into %arg
for (split /\&/, <STDIN>) {
   ($key,$val) = split /=/;
   $val =~ s/+/ /g;
   $val =~ s/%([0-9a-fA-F]{2})/chr(hex($1))/ge;
   $arg{$key} = $val;
}



Mail URL:
mailto:jon.rifkin@uconn.edu?subject="Mail from argtest on sp.uconn.edu"