This shows you the differences between two versions of the page.
— |
print_environment_using_perl_cgi [2020/08/10 02:35] (current) |
||
---|---|---|---|
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> |