一个perl连数据库的小问题[已解决]

xfly_t

试了一下,还是不行,有知道的帮帮忙

下面是一个cgi文件如auth.cgi

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. #use strict;
   
5. use lib ".";
   
6. use Bugzilla;
   
7. 
   
8. print "Content-type:text/plain\n\n";
   
9. 
   
10. if($ENV{'REQUEST_METHOD'}eq"GET"){
    
11.     my $username1;
    
12.     my $FORM;
    
13.     my $buffer=$ENV{'QUERY_STRING'};
    
14.     my @pairs=split(/&/,$buffer);
    
15.     my $dbh = Bugzilla->dbh;
    
16.     foreach my $pair (@pairs){
    
17.         my ($name,$value) = split(/=/,$pair);
    
18.         $value =~ tr/+/ /;
    
19.         $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    
20.         $FORM{$name} = $value;  #用变量$FORM{$name}来对应$value的值。
    
21.     }
    
22.    
    
23.     #my $username = "aaaaaa\@gmail.com"; #<- 可以查询出数据
    
24.     my $username = $FORM{'username'};   #<- 查询不出数据
    
25.    
    
26.     print $username;
    
27.     my $sth =
    
28.         $dbh->prepare('SELECT t1.cryptpassword FROM `profiles` t1 WHERE login_name = ?');
    
29.     $sth->execute($username);
    
30.     my ($password) = ($sth->fetchrow_array());
    
31.     print $password;
    
32. }
    
33. else {
    
34.     exit;
    
35. }
    

复制代码

[ 本帖最后由 xfly_t 于 2006-12-26 11:11 编辑 ]

xfly_t

这里没人用perl做过CGI??

flw

原帖由 xfly_t 于 2006-12-26 17:30 发表
这里没人用perl做过CGI??

就这么点问题你都自己搞不定？

1. #my $username = "xxx\@china.com.cn" <- 可以查询出数据
   
2. my $username = $FORM('username');   <- 查询不出数据

复制代码

你就没比较（eq）一下 "xxx\@china.com.cn" 和 $FORM('username') 有没有什么不同？

1. #下面打印是完全一样的
   
2. print "xxx\@china.com.cn";
   
3. print $FORM('username');

复制代码

眼睛看见的未必真实，
也许下面的这个帖子可能会对你有帮助：
http://bbs.chinaunix.net/viewthread.php?tid=866888
最后再给你特别引用一下我在那个帖子中的一个回复

原帖由 flw 于 2006-12-7 15:25 发表
题外话，

1.        print "mac: $one\n";
   
2.        print "readmac: $readmac\n";

复制代码

这种写法很不专业，一看就是没吃过亏的，我不论是什么语言，一般都是

1.        print "mac: [$one]\n";
   
2.        print "readmac: [$readmac]\n";

复制代码

这样子。

xfly_t

to flw
呵呵,真的就这点小问题实在是搞不定.

1. 
   
2.     #my $username = "xxx\@china.com.cn" <- 可以查询出数据
   
3.    my $username = $FORM('username');   <- 查询不出数据
   
4.     if ($username eq "xxx\@china.com.cn") {
   
5.         print "[$username]\n";
   
6.     }
   

复制代码

我加了这句话,可以证明就是相同的,但用了$FORM('username')
就是打印不出来,

好像从URL上GET下的数据就是不可以

xiaoshengcaicai

寒。我不是很明白楼主想说什么，且让我细细看来。。。

xiaoshengcaicai

告诉我，你是怎么访问那个cgi的？ url写来看看


还有 你的代码里面

    #my $username = "aaaaaa\@gmail.com"; #<- 可以查询出数据
    my $username = $FORM{'username'};   #<- 查询不出数据
   
    print $username;

试试改成下面的代码，可以看一下究竟是不是一样的：

    my $username_t = "aaaaaa\@gmail.com"; #<- 可以查询出数据
    my $username = $FORM{'username'};   #<- 查询不出数据
   
    if ( $username_t eq  $username ) {
        print "user name is the same!!\n":
    } else {
        print "user name is not the same!!\n";
    }

xfly_t

URL

1. 
   
2. http://127.0.0.1/msgauth.cgi?username=aaaaaa@gmail.com
   

复制代码

还是相同的 我试了不加@gmail.com(SQL也换了查相应的字段)也不行,感觉可能是设置的问题,

1. 
   
2.     URL:http://127.0.0.1/msgauth.cgi?username=1
   
3. 
   
4.     my $username_t = "1"; #<- 可以查询出数据
   
5.     my $username = $FORM{'username'};   #<- 查询不出数据
   
6.    
   
7.     if ($username eq $username_t) {
   
8.         print "[$username]\n";
   
9.     }
   
10.    
    
11.     my $sth =
    
12.         $dbh->prepare("SELECT cryptpassword FROM `profiles` WHERE userid = ?");
    
13.     $sth->execute($username);  #换成username_t 就可以查出来数据了
    

复制代码

只要从url取下来的数据就是不能在sql语句中用,但打印出来却一一样的 也能eq

[ 本帖最后由 xfly_t 于 2006-12-27 18:30 编辑 ]

flw

原帖由 xfly_t 于 2006-12-27 18:26 发表
URL

1. 
   
2. http://127.0.0.1/msgauth.cgi?username=aaaaaa@gmail.com
   

复制代码

还是相同的 我试了不加@gmail.com(SQL也换了查相应的字段)也不行,感觉可能是设置的问题,

只要从url取下来的数据就是不能在sq ...

你扯淡。
两个量 eq，一个能用，一个不能用，除非是在扯淡。
建议你不要迷信，好好查原因。
估计等原因查出来的时候，
要么就是你都不好意思告诉大家，
要么就是告诉了之后被人鄙视致死。

flw

print "[$username]\n";
这一行能出来吗？

xfly_t

to flw
这是真的不知你装了bugzilla没有,如果装了你可以试一下,把这个文件放到bugzilla目录下,然后
URL:http://127.0.0.1/msgauth.cgi?username=1
代码就在附件中

真的我就奇怪了?不样也不会这样问了,也请有bugzilla的朋友试一下,验证一下

[ 本帖最后由 xfly_t 于 2006-12-27 21:39 编辑 ]