Cross Reference: printenv
xref
: /
httpd
/
docs
/
cgi-examples
/
printenv
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
printenv revision 1dcd0b672e2e3edd4cce2024ff197a8a18f3816a
4182
N/A
#!/
usr
/
local
/
bin
/
perl
4182
N/A
##
4182
N/A
## printenv -- demo CGI program which just prints its environment
4182
N/A
##
4182
N/A
4182
N/A
print
"Content-type:
text
/
plain
\n\n"
;
4182
N/A
foreach
$var
(
sort
(
keys
(%
ENV
)
)
)
{
4182
N/A
$val
=
$ENV
{
$var
};
4182
N/A
$val
=~ s|\n|\\n|g;
4182
N/A
$val
=~ s|
"|\\"
|g;
4182
N/A
print
"${var}=\"${val}\"\n"
;
4182
N/A
}
4182
N/A
4182
N/A