论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2004-04-27 09:36 |只看该作者 |倒序浏览

一个在线调查程序，为什么我的vote.dat里面写入的内容不正确。
出现
4294967295
4294967295
源程序如下：
界面：

PHP源码:
--------------------------------------------------------------------------------

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">;
<HTML>;
<HEAD>;
<TITLE>; 问卷调查 </TITLE>;
</HEAD>;
<BODY>;
<h1>;问卷调查</h1>;
请你选择最喜欢的网站:
<FORM METHOD = "POST" ACTION="servey.cgi">;
<INPUT TYPE="radio" NAME="isp" VALUE="A" Checked>;首都在线 263.net<br>;
<INPUT TYPE="radio" NAME="isp" VALUE="B">;广州网易 163.net<br>;
<INPUT TYPE="radio" NAME="isp" VALUE="C">;搜狐 SOHU.net<br>;
<INPUT TYPE="radio" NAME="isp" VALUE="D">;是聆听 21cn.com<br>;
<INPUT TYPE="radio" NAME="isp" VALUE="E">;亿唐 etang.com<br>;
<INPUT TYPE="submit" VALUE="递交">;
<INPUT TYPE="reset" VALUE="取消">;
</FORM>;
欢迎您在线查询<a href="http://127.0.0.1/perltest/sview.cgi">;问卷调查结果</a>;
</BODY>;
</HTML>;

复制代码

--------------------------------------------------------------------------------

2.servey.cgi

PHP源码:
--------------------------------------------------------------------------------

#!/usr/bin/perl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs=split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value)=split(/=/, $pair);
$value=~tr/+//;
$value=~s/%([a-f A-F 0-9][a-f A-F 0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$filename="vote.dat";
%NAME=("A", "首都在线", "B", "网易", "C", "搜狐", "D", "是聆听", "E", "亿唐", "E", "亿唐");
print "Content-type:text/html\n\n";
print "<HTML>;";
print "<TITLE>;问卷调查</TITLE>;";
print "<BODY>;";
print "<H1>;问卷调查</H1>;";
open(FILE,"<$filename")||die print"不能打开文件，请和管理员联系\n";
for ($i=0; $i<2;$i++) {
$file[$i] = <FILE>;;
$file[$i] = ~s/n$//;
}
close(FILE);
@item = split(/:/,$file[0]);
@vote = split(/:/,$file[1]);
for ($i=0; $i<@item+1; $i++) {
if ($FORM{'isp'} eq $item[$i])
{
$vote[$i]++;
}
}
open(FILE, ">;$filename") || die "Can't open the file";
$item=join(":", @item);
$vote=join(":", @vote);
print FILE "$item\n";
print FILE "$vote\n";
close(FILE);
print "<h2>;您是投票给$NAME{$FORM{'isp'}}，谢谢您的支持！</h2>;";
print "查询<a href=\"http://127.0.0.1/perltest/sview.cgi\">;投票结果</a>;";
print "</table>;";
print "</body>;</html>;";
exit;

复制代码

--------------------------------------------------------------------------------

3.查看程序sview.cgi

PHP源码:
--------------------------------------------------------------------------------

#!/usr/bin/perl
$filename="vote.dat";
%NAME=("A", "首都在线", "B", "网易", "C", "搜狐", "D", "是聆听", "E", "亿唐", "E", "亿唐");
print "Content-type:text/html\n\n";
print "<HTML>;";
print "<TITLE>;问卷调查</TITLE>;";
print "<BODY>;";
print "<h1>;问卷调查</h1>;";
print "当前结果如下:<br>;";
open(FILE, "$filename") || die "文件打开错误";
for ($i=0;$i<2 ;$i++) {
$file[$i] = <FILE>;;
$file[$i]=~s/n$//;
}
close(FILE);
@item=split(/:/,$file[0]);
@vote=split(/:/,$file[1]);
print"<table border=1>;";
for ($i=0;$i<@item+1 ;$i++) {
print "<tr>;<td>;网站</td>;<td>;$NAME{$item[$i]}</td>;<td>;票数</td>;<td>;$vote[$i]</td>;<tr>;";
}
print "</table>;";
print "</body>;</html>;";
exit;

复制代码

文库|博客

apile

富足长乐

论坛徽章:: 1

2楼 [报告]

发表于 2004-04-30 08:27 |只看该作者

写入问题。

for ($i=0;$i<2 ;$i++) {
$file[$i] = <FILE>;;
$file[$i]=~s/n$//;
}
close(FILE);
@item=split(/:/,$file[0]);
@vote=split(/:/,$file[1]);
print"<table border=1>;";
for ($i=0;$i<@item+1 ;$i++) {
print "<tr>;<td>;网站</td>;<td>;$NAME{$item[$i]}</td>; <td>;票数</td>;<td>;$vote[$i]</td>;<tr>;";
}

上面有兩個地方有問題...
$file[$i] =~s/\n$//;
才對...
$file[$i]=~s/[\r\n]//g;
好一點點..
for ($i=0;$i<@item+1 ;$i++) {
這邊如果是C/C++，或Java..
會給你一個index out of bound 的Error...
仔細想想@item是什麼....
@item +1有沒有意義?

至於為什麼會有上面那串數字...不清楚...
試試看調整IE的編碼...
如果還不行...在有可能出現問題的地方..用print $XXX,"<br>;";
檢查看看....

最後..這兒是Perl版..你貼的是Perl代碼..不是PHP.....
別搞錯了...:)

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › 写入问题。

写入问题。 [复制链接]

写入问题。

浏览过的版块