请问大家一般怎样写用户获取代码?

afaleite

UID: 13147
帖子: 93
积分: 213
在线时间: 12 小时

1^# afaleite 发表于 2005-10-20 18:26

请问大家一般怎样写用户获取代码?

请问大家一般怎样写用户获取代码?
我看了一本书教的方法是:

post方式传递的代码是:

read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$buffer);
foreach $pair(@pairs)
{
my($name,$value)=split(/=/,$pair);
$value=~tr/+//;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("c",hex($1))/eg;
$FORM{$name}=$value;
}

get方式传递的代码是:

$buffer=$ENV{'QUERY_STRING'};
"pairs=split(/&/,$buffer);
foreach $pair("pairs)
{
my($name,$value)=split(/=/,$pair);
$value=~tr/+//;
~s/%([a-fA-F0-9][a-fA-F0-9])/pack("c",hex($1))/eg;
$FORM{$name}=$value;
}

可是我在实验时会显示500错误信息:
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, 123@sina.com and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

如果去掉用户信息获取的部分就又正常显示页面了,请问是怎么回事?
大家一般在win下都是怎样写post和get的用户信息获取代码的???

rjhome

UID: 9001
帖子: 176
积分: 404
在线时间: 1 天 18 小时

2^# rjhome 发表于 2005-10-20 22:24

语法级错误啊。.

afaleite

UID: 13147
帖子: 93
积分: 213
在线时间: 12 小时

3^# afaleite 发表于 2005-10-20 23:05

实在抱歉
因为我现在这台机的键位有点错乱，"和@等几个键互换了，一时看花眼就....
初学者，目前在win和apache上配置perl+access，碰到很多难题，这种配置的
相关资料又不是很多，调试器目前又用不了（新版本的配置和以前书里说的不
大一样了），所以犯了这种低级错误，抱歉，我再去试一下~~~~[CCB]1[/CCB]

cactus

UID: 10814
帖子: 165
积分: 379
在线时间: 1 天 13 小时

4^# cactus 发表于 2005-10-21 13:15

Perl是可以捕获错误的，代.
Perl是可以捕获错误的，代码都写到eval里面
eval {
};
if ($@) {
print "Content-type:text/html\n\n";
print "Error: $@";
}

rjhome

UID: 9001
帖子: 176
积分: 404
在线时间: 1 天 18 小时

5^# rjhome 发表于 2005-10-21 21:32

使用perl -c a.pl 来检查你的脚本啊。
另在脚本中千万使用use warnings , use strict啊。

afaleite

UID: 13147
帖子: 93
积分: 213
在线时间: 12 小时

6^# afaleite 发表于 2005-10-21 23:53

我喷饭N斗啦～～～～～～～～～～
我试了N次竟然都还是出错，又不敢再请教各位大神，谁知道被rjhome
一语道破，因为看了很多书说要养成使用use strict的好习惯，于是就写
了上去，谁知道竟造成我测试N遍无法通过的惨果，这个教训应该记录
下来警告后人．最后给出一下我最后通过的代码：

#!/usr/bin/perl

use CGI qw(:standard);

&read_input();

sub read_input {
if ( $ENV{'REQUEST_METHOD'} eq "POST" ) {
read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
}
else {
$buffer = $ENV{'QUERY_STRING'};
$buffer =~ s/\.\.\///g;
}

@pairs = split( /&/, $buffer );
foreach $pair (@pairs) {
my ( $name, $value ) = split( /=/, $pair );
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
}

print header;

print qq(
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<title>用户信息获取</title>
<meta name="author" content="alfret">
</head>
<body>
<table border=0 width=738 cellspacing=1 cellpadding=0>
<tr bgcolor="#EEFEE0" height=18 align=center>
<td width="25%">$FORM{'id'}</td>
<td width="25%">$FORM{'pass'}</td>
<td width="25%">$FORM{'name'}</td>
<td width="25%">$FORM{'email'}</td>
</tr>
</table>
</body>
</html>
);

exit;