EnviromentVariables

=]

(:code:)[=

DOCUMENT_ROOT = /home/ozgun/htdocs/html

GATEWAY_INTERFACE = CGI/1.1

HTTP_ACCEPT = text/xml,application/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,deflate

HTTP_ACCEPT_LANGUAGE = en-us,en;q=0.5

HTTP_CONNECTION = keep-alive

HTTP_HOST = localhost

HTTP_KEEP_ALIVE = 300

HTTP_USER_AGENT = Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.0.1) Gecko/20060124 Firefox/1.5.0.1

PATH = /bin:/usr/bin:/usr/local/bin

QUERY_STRING =

REMOTE_ADDR = 127.0.0.1

REMOTE_PORT = 1898

REQUEST_METHOD = GET

REQUEST_URI = /~ozgun/cgi-bin/perl_env_variables.pl

SCRIPT_FILENAME = /home/ozgun/public_html/cgi-bin/perl_env_variables.pl

SCRIPT_NAME = /~ozgun/cgi-bin/perl_env_variables.pl

SERVER_ADDR = 127.0.0.1

SERVER_ADMIN = webmaster@localhost

SERVER_NAME = localhost

SERVER_PORT = 80

SERVER_PROTOCOL = HTTP/1.1

SERVER_SIGNATURE = Apache

SERVER_SOFTWARE = Apache

Perl �evre Değişkenlerini yazdıran kod:

(:code:) #!/usr/bin/perl print "Content-type: text/html\n\n"; print "<tt>\n"; foreach $key (sort keys(%ENV)) { print "$key = $ENV{$key}<p>"; }