perl 无法实现"微信公众平台的验证URL有效性接口

huhuegg

微信公众平台文档中要求checkSignature的方法返回true/false的布尔值，
但是perl没有布尔值类型
我尝试使用1 代替 true,undef 代替 false,但是验证通不过

huhuegg

1. package WeiXin;
   
2. use Dancer ':syntax';
   
3. use Digest::SHA1 qw(sha1_hex);
   
4. #use JSON;
   
5. 
   
6. our $VERSION = '0.1';
   
7. 
   
8. 
   
9. get '/checkSignature' => sub {
   
10.     my $sig ||= params->{signature} || '';
    
11.     my $timestamp ||= params->{timestamp} || '';
    
12.     my $nonce ||= params->{nonce} || '';
    
13.     debug "sig:$sig timestamp:$timestamp nonce:$nonce\n";
    
14.     my $token = "82345678908234567890823456789812";
    
15.     my @arr;
    
16.     push(@arr,$token);
    
17.     push(@arr,$timestamp);
    
18.     push(@arr,$nonce);
    
19.     my @sortArr = sort(@arr);
    
20.     my $str = join('',@sortArr);
    
21.     $str = sha1_hex($str);
    
22. 
    
23.     debug "str:$str sig:$sig\n";
    
24.     if ($str eq $sig) {
    
25.         debug "eq!";
    
26.         return true;
    
27.     } else {
    
28.         return false;
    
29.     }
    
30. };
    
31. 
    
32. true;

复制代码

huhuegg

这样验证不通过

iakuf

return true;你确认不用引号...
我很久以前做过这个接口,没问题,可以通过认证

huhuegg

晕，成功应该返回echostr
被微信文档中的php样例欺骗了...