免费注册 查看新帖 |

ChinaUnix.net

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

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 );
复制代码



论坛徽章:
0
发表于 2019-03-27 16:43 |显示全部楼层
试问一下,Perl6比5好在哪啊?一直犹豫要不要学
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

基于案例的 SQL 优化实战训练营

讲师:中电福富特级专家梁敬彬,参与本次课程培训,你将收获:
1. 能编写出较为高效的 SQL;
2. 能解决70%以上的数据库常见优化问题;
3. 能得到老师提供的高效的相关工具和解决方案;
4. 能举一反三,收获不仅仅是 SQL 优化。
现在购票享受8.8折优惠!
----------------------------------------
优惠时间:2019年3月20日前

大会官网>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP