[转]perl使用LWP模块写的翻译小程序

paktc

原文地址：http://www.cnblogs.com/caibird/archive/2013/03/22/2974999.html
作者：第2012位菜鸟

1. #! /usr/bin/perl
   
2. #学习perl LWP时用post做的翻译小脚本
   
3. #调用的是有道词典
   
4. use strict;
   
5. use warnings;
   
6. use LWP::UserAgent;
   
7. use JSON ;
   
8. #use Data::Dumper;
   
9. 
   
10. my $browser = LWP::UserAgent->new();
    
11. print "Please input the word:";
    
12. chomp (my $input = <STDIN>);
    
13. my $response = $browser->post(
    
14. #    'http://fanyi.youdao.com/translate?smartresult=dict&smartresult=rule&smartresult=ugc&sessionFrom=https://www.google.com.hk/',
    
15.     'http://fanyi.youdao.com/translate?smartresult=dict&smartresult=rule&smartresult=ugc&sessionFrom=null',
    
16.     [
    
17.         'type' => 'AUTO',
    
18.         'i' => "$input",
    
19.         'doctype' => 'json',
    
20.     ],
    
21.     );
    
22. 
    
23. if($response->is_success){
    
24.     my $result = $response->content;
    
25.     my $json = new JSON;
    
26.     my $obj = $json->decode($result);
    
27.     #print Dumper $obj;
    
28.     my $trans = @{$obj->{'translateResult'}[0]}[0]->{"tgt"};
    
29.     $trans = "翻译结果：$trans" if $trans;
    
30.     my $string;
    
31.     eval{
    
32.         $string  = join " ", @{$obj->{'smartResult'}->{"entries"}};
    
33.     };
    
34.     $trans = "$trans\n其他结果:$string" if $string;
    
35.     print $trans."\n" // "Not found\n";
    
36. }

复制代码

paktc

在windows用cmd，改了一下，信息重新编码为CP936规范再输出：

1. #! /usr/bin/perl
   
2. # 学习perl LWP时用post做的翻译小脚本
   
3. # 调用的是有道词典
   
4. # 作者：第2012位菜鸟
   
5. # 原文链接 http://www.cnblogs.com/caibird/archive/2013/03/22/2974999.html
   
6. 
   
7. use strict;
   
8. use warnings;
   
9. use LWP::UserAgent;
   
10. use JSON ;
    
11. use Encode;
    
12. #use Data::Dumper;
    
13. 
    
14. binmode(STDOUT,':encoding(CP936)');
    
15. 
    
16. my $browser = LWP::UserAgent->new();
    
17. print "Please input the word:";
    
18. chomp (my $input = <STDIN>);
    
19. my $response = $browser->post(
    
20. #    'http://fanyi.youdao.com/translate?smartresult=dict&smartresult=rule&smartresult=ugc&sessionFrom=https://www.google.com.hk/',
    
21.     'http://fanyi.youdao.com/translate?smartresult=dict&smartresult=rule&smartresult=ugc&sessionFrom=null',
    
22.     [
    
23.         'type' => 'AUTO',
    
24.         'i' => "$input",
    
25.         'doctype' => 'json',
    
26.     ],
    
27.     );
    
28. 
    
29. if($response->is_success){
    
30.     my $result = $response->content;
    
31.     my $json = new JSON;
    
32.     my $obj = $json->decode($result);
    
33.     #print Dumper $obj;
    
34.     my $trans = @{$obj->{'translateResult'}[0]}[0]->{"tgt"};
    
35.     my $string;
    
36.     eval{
    
37.         $string  = join " ", @{$obj->{'smartResult'}->{"entries"}};
    
38.     };
    
39. 
    
40.     my $say1="\x{7ffb}\x{8bd1}\x{7ed3}\x{679c}\x{ff1a}";
    
41.     my $say2="\x{5176}\x{4ed6}\x{7ed3}\x{679c}\x{ff1a}";
    
42.     $trans=decode('UTF-8',$trans) if $trans;
    
43.     $string=decode('UTF-8',$string) if $string;
    
44. 
    
45.     print $say1, $trans, "\n", $say2, $string, "\n";
    
46. }
    
47. <STDIN>;
    

复制代码

pitonas

大神~ 膜拜一个，太感谢了。{:2_172:}
这个比较茫然望指点

1.     my $string;
   
2.     eval{
   
3.         $string  = join " ", @{$obj->{'smartResult'}->{"entries"}};
   
4.     };

复制代码

我认为这就可以了。

1.     my $string = join " ", @{ $obj->{'smartResult'}->{"entries"} };
   

复制代码

paktc

回复 3# pitonas


    eval的话如果不成功 $string 就会变成未定义吧？
   

后面不是有一句：    print $trans."\n" // "Not found\n";
如果$trans和$string 都未定义，那么结果显示为“not found”。
前面的几句  if $trans  if $string 也都是层层相扣的。

目测是这个原因，没有具体实践。

pitonas

挺有意思的

1.         my $string = join " ", @{ $obj->{'smartResult'}->{"entries"} };

复制代码

input: abble
输出：Can't use an undefined value as an ARRAY reference

这就可以了。

1.     my $string = join " ", @{ $obj->{'smartResult'}->{"entries"} || [] };
   

复制代码

输出：
翻译结果：abble