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等許多新特性！