2,203
社区成员
发帖
与我相关
我的任务
分享帮忙看看♂
我在win98上用的Sambar Server 5.1
为什么一调试这个程序就出错，找不到服务器
如果将foreach语句删掉可以执行
向各位高手学习
print "Content-type :text/html","\n\n";
print "<HTML>","\n";
print "<HEAD>","\n";
print "<TITLE>测试GET方式下的表单数据传输方法</TITLE>","/n";
print "</HEAD>","\n";
print "<BODY>","\n";
print "<H2 >从CRL获取的信息</H2>";
$QuerystringFromEnv=$ENV{'QUERY_STRING'};
@NameAndValuelists=split(/&/,$QuerystringFromEnv);
foreach $NameAndValue(@NameAndValuelists);
{
($Name,$Value)=split(/=/,$NameAndValue);
$Name=~tr/+//;
$Value=~s/%([\dA-Fa-f][\dA-Fa-f])/pack("c",hex($1))/eg;
print "属性名=$Name,属性值=$Value","<BR>\n";
}
print "</BODY>","\n";
print "</HTML>","\n";
为什么一调试这个程序就出错，找不到服务器
如果将foreach语句删掉可以执行
向各位高手学习
print "Content-type :text/html","\n\n";
print "<HTML>","\n";
print "<HEAD>","\n";
print "<TITLE>测试GET方式下的表单数据传输方法</TITLE>","/n";
print "</HEAD>","\n";
print "<BODY>","\n";
print "<H2 >从CRL获取的信息</H2>";
$QuerystringFromEnv=$ENV{'QUERY_STRING'};
@NameAndValuelists=split(/&/,$QuerystringFromEnv);
foreach $NameAndValue(@NameAndValuelists);
{
($Name,$Value)=split(/=/,$NameAndValue);
$Name=~tr/+//;
$Value=~s/%([\dA-Fa-f][\dA-Fa-f])/pack("c",hex($1))/eg;
print "属性名=$Name,属性值=$Value","<BR>\n";
}
print "</BODY>","\n";
print "</HTML>","\n";
...全文
请发表友善的回复…
发表回复
