print_environment_using_perl_cgi
Differences
This shows you the differences between two versions of the page.
|
print_environment_using_perl_cgi [2018/08/22 20:57] k2patel created |
print_environment_using_perl_cgi [2020/08/10 02:35] |
||
|---|---|---|---|
| Line 1: | Line 1: | ||
| - | ====== Print Environment variable ====== | ||
| - | # this is really helpful while working with proxy etc.. | ||
| - | |||
| - | <code perl> | ||
| - | #!/usr/bin/perl -wT | ||
| - | |||
| - | use strict; | ||
| - | use Net::Domain qw(hostname hostfqdn hostdomain); | ||
| - | use CGI qw(:standard); | ||
| - | use CGI::Carp qw(warningsToBrowser fatalsToBrowser); | ||
| - | |||
| - | print header; | ||
| - | print start_html("Environment"); | ||
| - | |||
| - | foreach my $key (sort(keys(%ENV))) { | ||
| - | print "$key = $ENV{$key}<br>\n"; | ||
| - | } | ||
| - | |||
| - | my $fqdn = hostfqdn(); | ||
| - | |||
| - | print "Hostname = $fqdn \n"; | ||
| - | |||
| - | print end_html; | ||
| - | </code> | ||
print_environment_using_perl_cgi.txt ยท Last modified: 2020/08/10 02:35 (external edit)
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Share Alike 4.0 International
