免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 23465 | 回复: 3

perl6 使用百度翻译API遇到"Invalid Sign" [复制链接]

论坛徽章:
0
发表于 2019-03-22 11:51 |显示全部楼层
本帖最后由 aef25u 于 2019-03-22 13:08 编辑

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. translation({say "翻译:"},'"Doing multiple things at the same time"');
  5.         
  6. sub translation(&code-ref,$q,$fromLang="zh", $toLang="en"){
  7.         my $appid = '**********' ;#你的appid(这里是必填的, 从百度 开发者信息一览获取)
  8.         my $secretKey = '*********'; #你的密钥(这里是必填的, 从百度 开发者信息一览获取)

  9.         my $url='http://api.fanyi.baidu.com/api/trans/vip/translate';
  10.         my $salt = (32768.. 65536).rand.Int;
  11.         my $sign = $appid~$q~$salt~$secretKey;
  12.         my $d=Digest::MD5.new;
  13.         #{error_msg : Invalid Sign}==>$sign =$d.md5_hex($sign.encode("ascii"));
  14.         $sign =$d.md5_hex($sign);
  15.         $url = $url~'?appid='~$appid~'&q='~uri_escape($q)~'&from='~$fromLang~'&to='~$toLang~'&salt='~$salt~'&sign='~$sign;
  16.         say $url;
  17.         
  18.         my $ua = HTTP::UserAgent.new;
  19.         $ua.timeout = 10;
  20.         my $resp=$ua.get($url);

  21.         if $resp.is-success {
  22.             my $par=$resp.content;
  23.             say $par;
  24.         } else {
  25.         die $resp.status-line;
  26.         }        
  27. }
复制代码
代码参考这编文章改写https://www.jianshu.com/p/be93c26c7d5f(python3实现)


论坛徽章:
0
发表于 2019-03-22 12:42 |显示全部楼层
本帖最后由 aef25u 于 2019-03-22 12:51 编辑

自已解决了。
  1. 改为:
  2. $sign =$d.md5_hex($sign);
  3. 而非:
  4. $sign =$d.md5_hex($sign.encode("ascii"));

  5. 最终得到josn数据后,使用use JSON::Tiny;
  6. my $par=$resp.content;
  7. my $josn = from-json ( $par );
复制代码



论坛徽章:
1
19周年集字徽章-年
日期:2020-10-29 09:39:21
发表于 2019-03-27 16:43 |显示全部楼层
试问一下,Perl6比5好在哪啊?一直犹豫要不要学

论坛徽章:
0
发表于 2021-03-07 23:38 |显示全部楼层
回复 3# legs  

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


您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP