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):         box1=ccd&box2=dde&submit2=Submit+GET


Real, Effective UID

UID -2
EUID -2


Key,Value pairs from Perl Variable %ENV

DOCUMENT_ROOT /usr/local/docs
GATEWAY_INTERFACE CGI/1.1
HTTPS OFF
HTTP_ACCEPT image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-shockwave-flash, */*
HTTP_ACCEPT_ENCODING gzip, deflate
HTTP_ACCEPT_LANGUAGE ko
HTTP_CONNECTION Keep-Alive
HTTP_HOST www.sp.uconn.edu
HTTP_REFERER http://www.sp.uconn.edu//~jrifkin/cgi-bin/argtest
HTTP_USER_AGENT Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
PATH /usr/bin:/etc:/usr/sbin:/usr/ucb:/usr/bin/X11:/usr/dt/bin:/sbin:/usr/local/bin:/u/loadl/bin:/usr/local/ssh2/bin:.:/:/usr/lpp/ssp/bin:/usr/lib/instl:/usr/sbin:/usr/lpp/ssp/kerberos/bin:/usr/lpp/ssp/install/bin:/usr/lpp/ssp/rcmd/bin:/var/sysman:/usr/local/ssh2/bin:.:/usr/sbin/acct:/var/adm/acct
QUERY_STRING box1=ccd&box2=dde&submit2=Submit+GET
REMOTE_ADDR 220.118.101.254
REMOTE_PORT 1975
REQUEST_METHOD GET
REQUEST_URI ///~jrifkin/cgi-bin/argtest?box1=ccd&box2=dde&submit2=Submit+GET
SCRIPT_FILENAME /u/jrifkin/cgi-bin/argtest
SCRIPT_NAME ///~jrifkin/cgi-bin/argtest
SERVER_ADMIN root@sp.uconn.edu
SERVER_NAME sp.uconn.edu
SERVER_PORT 80
SERVER_PROTOCOL HTTP/1.1
SERVER_SIGNATURE  
SERVER_SOFTWARE IBM_HTTP_Server/1.3.3.2 Apache/1.3.4-dev (Unix)
TZ EST5EDT
UNIQUE_ID Qx40ioljbxoAAGPw0D8


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