Perl读取CGI环境变量

陳錄生

已于 2022-03-11 08:01:13 修改

阅读量184

点赞数

分类专栏：笔记文章标签： perl 开发语言

于 2022-03-09 10:54:35 首次发布

本文链接：https://blog.csdn.net/weixin_52505665/article/details/123372047

版权

笔记专栏收录该内容

4 篇文章 0 订阅

订阅专栏

HTML代码：

<html>
        <head>
                <title>Fugo</title>
        </head>
        <body>
                <form action="cgi-bin/env_var.cgi" method="get">
                        <input type="text" name="username" ><br />
                        <input type="password" name ="password"><br />
                        <input type="submit" value="LOGIN">
                </form>
        </body>
</html>

CGI代码：

#!/usr/bin/perl

print "Content-type:text/html\r\n\r\n";

print '<html>';
print '<head>';
print '<meta charset="utf-8">';
print '<title>Enviroment variables</title>';
print '</head>';

print '<body>';
print '<pre><code>';

local ($query_string, @pair, $name, $value, %form);

#foreach (sort keys %ENV){
#       if ($_ eq "QUERY_STRING"){
#               print "<b>$_</b>:$ENV{$_}\n";
#       }
#}
print "$ENV{'REQUEST_METHOD'}\n";
$query_string = "$ENV{'QUERY_STRING'}\n";

@pairs = split(/&/, $query_string);
foreach $pair (@pairs){
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value=~ s/%(..)/pack("C", hex($1))/eg;
        #注意，这里必须将'\n'去掉。
        chomp $value; 
        $form{$name} = $value;
}

my $host = "localhost";
my $port = "3306";
my $database = "fugo";

my $dsn = "DBI:mysql:database=$database:$host:$port";
my $dbh = DBI->connect($dsn, "root", "123456") or die $DBI::errstr;
my $sth = $dbh->prepare("select username , phone_no from client where username = ? and password = sha1(?)");

$sth->execute($form{username}, $form{password});

my @row = $sth->fetchrow_array();
if (@row){
        print "Login successfully.";
}
else{
        print "Login failed.";
}

print '</code></pre>';

print '</body>';
print '</html>';

1;

陳錄生

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
Perl读取CGI环境变量

#!/usr/bin/perlprint "Content-type:text/html\r\n\r\n";print '<html>';print '<head>';print '<meta charset="utf-8">';print '<title>Enviroment variables</title>';print '</head>';print '<body>';print '<pr
复制链接

扫一扫