[perl] html 怎么才能把参数传进perl内?

mini330

开源幼儿园

Rank: 1

帖子: 1
精华: 0
积分: 2
阅读权限: 10
在线时间: 1 小时

1楼大中小发表于 2008-8-19 21:32 只看该作者

html 怎么才能把参数传进perl内?

<html>
<title> perl example </title>
<body>
<form method="get" action="/cgi-bin/changepasswd.pl">
UserName <INPUT type="text" name="first" SIZE=25><BR>
PassWord <INPUT type="password" name="last" SIZE=25><BR>
<input type="submit" name="StateVariable" value="test it">
</form>
</body>
</html>

怎么才能把username 和password的数据传入perl呢?

#!/usr/bin/perl -w
($username,$plaintext) = @_; #我在这里print $username 和$plaintext全是空的
print "Content-type:text/html\n\n";
srand (time());
my $randletter = "(int (rand (26)) + (int (rand (1) + .5) % 2 ? 65 : 97))";
my $salt = sprintf ("%c%c", eval $randletter, eval $randletter);
#my $plaintext = 1234567890; #shift;
my $crypttext = crypt ($plaintext, $salt);
print "${crypttext}:cvsroot\n";
#print "please input username:\n";
#chomp($username=<STDIN>);
#print "username is: $username\n";
#$username=submit;
my $FoundFlag="False";
my $pwdFile='passwd';
my $tmpPwdFile='temp.tmp';

TOP

cnangel

宝库总监

Rank: 28

帖子: 935
精华: 7
积分: 3440
阅读权限: 150
在线时间: 643 小时

2楼大中小发表于 2008-8-20 09:00 只看该作者

STDIN里面读阿
其中环境变量有
GET：
QUERY_STRING
REDIRECT_QUERY_STRING
POST：
CONTENT_LENGTH
CONTENT_TYPE

example：

复制内容到剪贴板

代码:

    if ($method eq 'GET' || $method eq 'HEAD')

    {    

        if ($SYSTEM{MOD_PERL})

        {

            $query_string = Apache->request->args;

        }

        else

        {

            $query_string = $ENV{'QUERY_STRING'} if (defined($ENV{'QUERY_STRING'}));

            $query_string ||= $ENV{'REDIRECT_QUERY_STRING'} if (defined($ENV{'REDIRECT_QUERY_STRING'}));

        }

    }

    elsif ($method eq 'POST')

    {    

        sysread(STDIN, $query_string, $content_length);

    }    

    elsif (defined($ARGV[0]))

    {    

        $query_string = join('&', @ARGV);

    }