2,204
社区成员
发帖
与我相关
我的任务
分享我写了个perl测试程序,放在宏网上为什么不能执行?(注:本地已调通)
附源程序:
-----------------------------------------
#common.pl
#header
sub COMMON_Header
{
print "Content-type: text/plain", "\n\n";
print "<html>", "\n\n";
print "<head>", "\n\n";
print "<title>", "@_", "</title>", "\n\n";
print "</head>", "\n\n";
} #end COMMON_Header
#footer
sub COMMON_Footer
{
print "<hr>", "\n\n";
print "<center><font color=\"\#339900\"><b><i><font size=\"2\">I.C.E.Soft Studio Copyright(C)1999~2001
All Rights Reserved</font></i></b></font></center>", "\n\n";
print "</body>", "\n\n";
print "</html>", "\n\n";
} #end COMMON_Footer
1;
#end common.pl
--------------------------------------------
#!usr/bin/perl5(这里是我按照宏网的例子设的路径)
#testserver.pl
require "lib/common.pl";
#定义列表变量
%EnvVarList =
(
'AUTH_TYPE', 'Server\'s authentication method is: ',
'CONTENT_LENGTH', 'Length of any attached information: ',
'CONTENT_TYPE', 'Type of any attached information: ',
'GATEWAY_INTERFACE', 'CGI version on server is: ',
'HTTP_ACCEPT', 'Client will accept these MIME types: ',
'HTTP_REFERER', 'Referrer\'s URL is: ',
'HTTP_USER_AGENT', 'Client\'s browser is: ',
'PATH_INFO', 'Extra PATH information is: ',
'PATH_TRANSLATED', 'PATH translation is: ',
'QUERY_STRING', 'Query string sent by client is: ',
'REMOTE_ADDR', 'Client\'s IP address is: ',
'REMOTE_HOST', 'Client\'s domain name is: ',
'REMOTE_IDENT', 'Identity data sent by client is: ',
'REMOTE_USER', 'User ID sent by client is: ',
'REQUEST_METHOD', 'Client\'s request method is: ',
'SCRIPT_NAME', 'URL of the CGI application is: ',
'SERVER_NAME', 'Server\'s computer name is: ',
'SERVER_PORT', 'Connection made at this port: ',
'SERVER_PROTOCOL', 'Server is using this protocol: ',
'SERVER_SOFTWARE', 'Server is running this software: '
);
&COMMON_Header("测试服务器");
print "<body>", "\n\n";
print "<center>测试服务器</center>", "\n\n";
print "<hr>", "\n\n";
while(($EnvironmentVar, $Desc) = each(%EnvVarList))
{
print $EnvironmentVar, ":", $Desc, $ENV{$EnvironmentVar},
"<br>", "\n";
}
&COMMON_Footer;
# end testserver.pl
--------------------------------------------------
各位高手请帮忙!
-----------------------------------------
#common.pl
#header
sub COMMON_Header
{
print "Content-type: text/plain", "\n\n";
print "<html>", "\n\n";
print "<head>", "\n\n";
print "<title>", "@_", "</title>", "\n\n";
print "</head>", "\n\n";
} #end COMMON_Header
#footer
sub COMMON_Footer
{
print "<hr>", "\n\n";
print "<center><font color=\"\#339900\"><b><i><font size=\"2\">I.C.E.Soft Studio Copyright(C)1999~2001
All Rights Reserved</font></i></b></font></center>", "\n\n";
print "</body>", "\n\n";
print "</html>", "\n\n";
} #end COMMON_Footer
1;
#end common.pl
--------------------------------------------
#!usr/bin/perl5(这里是我按照宏网的例子设的路径)
#testserver.pl
require "lib/common.pl";
#定义列表变量
%EnvVarList =
(
'AUTH_TYPE', 'Server\'s authentication method is: ',
'CONTENT_LENGTH', 'Length of any attached information: ',
'CONTENT_TYPE', 'Type of any attached information: ',
'GATEWAY_INTERFACE', 'CGI version on server is: ',
'HTTP_ACCEPT', 'Client will accept these MIME types: ',
'HTTP_REFERER', 'Referrer\'s URL is: ',
'HTTP_USER_AGENT', 'Client\'s browser is: ',
'PATH_INFO', 'Extra PATH information is: ',
'PATH_TRANSLATED', 'PATH translation is: ',
'QUERY_STRING', 'Query string sent by client is: ',
'REMOTE_ADDR', 'Client\'s IP address is: ',
'REMOTE_HOST', 'Client\'s domain name is: ',
'REMOTE_IDENT', 'Identity data sent by client is: ',
'REMOTE_USER', 'User ID sent by client is: ',
'REQUEST_METHOD', 'Client\'s request method is: ',
'SCRIPT_NAME', 'URL of the CGI application is: ',
'SERVER_NAME', 'Server\'s computer name is: ',
'SERVER_PORT', 'Connection made at this port: ',
'SERVER_PROTOCOL', 'Server is using this protocol: ',
'SERVER_SOFTWARE', 'Server is running this software: '
);
&COMMON_Header("测试服务器");
print "<body>", "\n\n";
print "<center>测试服务器</center>", "\n\n";
print "<hr>", "\n\n";
while(($EnvironmentVar, $Desc) = each(%EnvVarList))
{
print $EnvironmentVar, ":", $Desc, $ENV{$EnvironmentVar},
"<br>", "\n";
}
&COMMON_Footer;
# end testserver.pl
--------------------------------------------------
各位高手请帮忙!
...全文
请发表友善的回复…
发表回复
元明 2001-03-26
- 打赏
- 举报
噢!我没看清呀!不好意思,我去试试.
dannu 2001-03-25
- 打赏
- 举报
如果不是这个问题的话，你试试
在require句子前加上
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1");
};
在require句子前加上
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1");
};
dannu 2001-03-25
- 打赏
- 举报
你上面贴出来的是usr/bin/perl5啊。。和/usr/bin/perl5差远了都。。
元明 2001-03-24
- 打赏
- 举报
dannu(阿豆),你好!
难道我设置的不是吗?
难道我设置的不是吗?
dannu 2001-03-21
- 打赏
- 举报
perl的解释路径错了。。
应该是/usr/bin/perl5
应该是/usr/bin/perl5
Kevin_qing 2001-03-21
- 打赏
- 举报
显示得错误码是什么？
