perl6 使用百度翻译API遇到"Invalid Sign"

aef25u

perl6 使用百度翻译API遇到"{"error_code":"54001","error_msg":"Invalid Sign"}
请大家帮忙找一下问题。


判断问题出在：

1.         my $sign = $appid~$q~$salt~$secretKey;
   
2.         my $d=Digest::MD5.new;
   
3.         $sign =$d.md5_hex($sign.encode("ascii"));

复制代码

附代码：

1. use Digest::MD5;
   
2. use URI::Escape;
   
3. use HTTP::UserAgent;
   
4. 
   
5. translation({say "翻译:"},'"Doing multiple things at the same time"');
   
6.         
   
7. sub translation(&code-ref,$q,$fromLang="zh", $toLang="en"){
   
8.         my $appid = '**********' ;#你的appid(这里是必填的, 从百度 开发者信息一览获取)
   
9.         my $secretKey = '*********'; #你的密钥(这里是必填的, 从百度 开发者信息一览获取)
   
10. 
    
11.         my $url='http://api.fanyi.baidu.com/api/trans/vip/translate';
    
12.         my $salt = (32768.. 65536).rand.Int;
    
13.         my $sign = $appid~$q~$salt~$secretKey;
    
14.         my $d=Digest::MD5.new;
    
15.         #{error_msg : Invalid Sign}==>$sign =$d.md5_hex($sign.encode("ascii"));
    
16.         $sign =$d.md5_hex($sign);
    
17.         $url = $url~'?appid='~$appid~'&q='~uri_escape($q)~'&from='~$fromLang~'&to='~$toLang~'&salt='~$salt~'&sign='~$sign;
    
18.         say $url;
    
19.         
    
20.         my $ua = HTTP::UserAgent.new;
    
21.         $ua.timeout = 10;
    
22.         my $resp=$ua.get($url);
    
23. 
    
24.         if $resp.is-success {
    
25.             my $par=$resp.content;
    
26.             say $par;
    
27.         } else {
    
28.         die $resp.status-line;
    
29.         }        
    
30. }

复制代码

代码参考这编文章改写https://www.jianshu.com/p/be93c26c7d5f（python3实现）

aef25u

自已解决了。

1. 改为：
   
2. $sign =$d.md5_hex($sign);
   
3. 而非：
   
4. $sign =$d.md5_hex($sign.encode("ascii"));
   
5. 
   
6. 最终得到josn数据后，使用use JSON::Tiny;
   
7. my $par=$resp.content;
   
8. my $josn = from-json ( $par );

复制代码

legs

试问一下，Perl6比5好在哪啊？一直犹豫要不要学

aef25u

回复 3# legs  

超正则表达式的文本分析能力Grammar，惰性求值，并发高级API，类型系统，还生oop，超运算符muti sub等许多新特性！