求救我的脚
为什么这么复杂的脚本都可以运行:
#!/usr/bin/perl
$server_script_path = "/www/users/artinternationalwholesale.net/cgi-bin/ccp5/";
$server_data_path = "/www/users/artinternationalwholesale.net/ccp5/data/";
$server_media_path = "/www/users/artinternationalwholesale.net/ccp5/media/";
$url_script_path = "http://www.artinternationalwholesale.net/cgi-bin/ccp5";
$url_media_path = "http://www.artinternationalwholesale.net/ccp5/media";
$site_script_url = "http://www.artinternationalwholesale.net/cgi-bin/ccp5/cp-app.cgi";
$site_media_url = "http://www.artinternationalwholesale.net/ccp5/media";
if ((-e "$server_script_path") && (-e "$server_data_path") && (-e "$server_media_path")) {
require "$server_script_path/library/common/initialize.pl";
$script_name = "cp-admin.cgi";
$execute_type = "adm";
if ($url_script_path ne "" && $url_media_path ne "" && $script_name ne "" && $execute_type ne "") {
&initialize;
} else {
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>Script Execution Error</TITLE></HEAD><BODY>\n";
print "<H1>Script Execution Error</H1>The following server paths are not correct:<BR><BR>\n";
if (!(-e "$server_script_path")) {print "Server Script Path \(\$server_script_path variable\)<BR>\n";}
if (!(-e "$server_data_path")) {print "Server Data Path \(\$server_data_path variable\)<BR>\n";}
if (!(-e "$server_media_path")) {print "Server Media Path \(\$server_media_path variable\)<BR>\n";}
print "</BODY></HTML>\n";
}
exit;
然而,我把它改为一个简单的程序就运行不了,大侠帮我解决以下难题了:
#!/usr/bin/perl
print "<h>hello</h>";