perlCGI新手一问

[ahow]

我的一个脚本 /cgi-bin/XXX.pl中的
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
为什么不能收到另一个XXX.htm文件中form的post
<form action="/cgi-bin/XXX.pl" method=POST>
<p> 源号码
<input name=fromnum size="14" maxlength="11">
</p>
<p>署名
<input name=username size="12" maxlength="8">
</p>
<p>目的号码
<input name=tonum size="14" maxlength="11">
</p>
<p> 内容
<textarea name="msg" cols="26" rows="10" id="msg"></textarea>
<input type="submit" name="Submit" value="提交">

</form>

[xronguo]

说的详细点。
是网页为空，还是出错。

[yourway]

如果你想用
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
这一句来读取页面form通过post方式提交的数据，你就不能使用CGI模块，把
my $cgi = new CGI;
这一句删掉你再试试:)

[ahow]

xxx.htm的post提交完，xxx.pl中没有收到提交的内容(print $buffer为空白页)
xxx.pl如下

#!/usr/bin/perl -w
use CGI qw/:standard/;
my $cgi = new CGI;
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});#读取网页响应内容
print $cgi->header("text/html; charset=gb2312");
print $buffer;

[ahow]

给分