Jump to content
xisto Community
Sign in to follow this  
xsize

Second Perl Programm Simple counter...

Recommended Posts

View all information abaut web host:

[br]#!/usr/bin/perl[/br]#down.cgi[br][/br]use CGI qw(param);[br]use CGI::Carp qw(fatalsToBrowser);[br][/br]print "Content-Type: text/html\n\n";[/br]print "<html><body>";[br]print "Script_name: $ENV{'SCRIPT_NAME'}<br>\n";[/br]print "S_Full_name: $ENV{'SCRIPT_FILENAME'}<br>\n";[br]print join("<br>",map("$_=$ENV{$_}",keys %ENV));[/br]print "</body></html>";

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

Terms of Use | Privacy Policy | Guidelines | We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.