Board logo

标题: [转载代码] [转]perl使用LWP模块写的翻译小程序 [打印本页]
作者: PakTC    时间: 2014-1-11 10:37     标题: [转]perl使用LWP模块写的翻译小程序

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

注：原文的脚本是在linux下运行的。在windows下执行需要把编码转为GBK再输出。
  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    时间: 2014-1-11 10:42

修改了下，
不管保存为ANSI、还是UTF-8、UTF-16LE UTF-16BE 都可以正确显示为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. # 2014-01-10 增加编码判断+按CP936规范输出，适合在windows命令行显示 - paktc

  7. 

  8. use strict;

  9. use warnings;

  10. use LWP::UserAgent;

  11. use JSON ;

  12. use Encode;

  13. #use Data::Dumper;

  14. 

  15. my $mode=recogn();

  16. binmode(STDOUT,':encoding(CP936)');

  17. 

  18. my $browser = LWP::UserAgent->new();

  19. print "Please input the word:";

  20. chomp (my $input = <STDIN>);

  21. my $response = $browser->post(

  22. #    'http://fanyi.youdao.com/translate?smartresult=dict&smartresult=rule&smartresult=ugc&sessionFrom=https://www.google.com.hk/',

  23.     'http://fanyi.youdao.com/translate?smartresult=dict&smartresult=rule&smartresult=ugc&sessionFrom=null',

  24.     [

  25.         'type' => 'AUTO',

  26.         'i' => "$input",

  27.         'doctype' => 'json',

  28.     ],

  29.     );

  30. 

  31. if($response->is_success){

  32.     my $result = $response->content;

  33.     my $json = new JSON;

  34.     my $obj = $json->decode($result);

  35.     #print Dumper $obj;

  36.     my $trans = @{$obj->{'translateResult'}[0]}[0]->{"tgt"};

  37.     my $string;

  38.     eval{

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

  40.     };

  41. 

  42.     my $say1=decode($mode,"翻译结果：");

  43.     my $say2=decode($mode,"\n其他结果: ");

  44.     $trans=decode('UTF-8',$trans) if $trans;

  45.     $string=decode('UTF-8',$string) if $string;

  46. 

  47.     print $say1, $trans, $say2, $string, "\n";

  48. }

  49. <STDIN>;

  50. 

  51. # 判断当前脚本编码格式  仅在WIN32中文系统测试过

  52. sub recogn {

  53.     my $cn="中";

  54.     my $code;

  55.     my @arr=split("",$cn);

  56.     if ($#arr == 0) {            # 'Unicode' 4e2d

  57.         $code='Unicode';

  58.     } elsif ($#arr == 1) {       # 'GBK'   d6 d0 

  59.         $code='GBK';

  60.     } elsif ($#arr == 2) {       # 'UTF-8' e4 b8 ad

  61.         $code='UTF-8';

  62.     } else {

  63.         $code='WHAT?';

  64.     }

  65. }
复制代码
作者: PowerShell    时间: 2014-1-11 12:16

1 看了半天 不知道干嘛使的，有何用处？！ ----根本不说
2 和powershell语法至少有40%相似
作者: PakTC    时间: 2014-1-11 12:49

1 看了半天 不知道干嘛使的，有何用处？！ ----根本不说
2 和powershell语法至少有40%相似
PowerShell 发表于 2014-1-11 12:16



    标题都不会看跑到论坛耍？
作者: PakTC    时间: 2014-1-11 13:05

有一个更直接的办法是：
将下面两个明文字符
    my $say1=decode($mode,"翻译结果：");
    my $say2=decode($mode,"\n其他结果：");
改为unicode码的形式表达，这样就不需要判断脚本本身是什么编码
  1. #! /usr/bin/perl

  2. # 学习perl LWP时用post做的翻译小脚本

  3. # 调用的是有道词典

  4. # 作者：第2012位菜鸟

  5. # 原文链接 http://www.cnblogs.com/caibird/archive/2013/03/22/2974999.html

  6. # 2014-01-10 增加编码判断+按CP936规范输出，适合在windows命令行显示 - paktc

  7. 

  8. use strict;

  9. use warnings;

  10. use LWP::UserAgent;

  11. use JSON ;

  12. use Encode;

  13. #use Data::Dumper;

  14. 

  15. binmode(STDOUT,':encoding(CP936)');

  16. 

  17. my $browser = LWP::UserAgent->new();

  18. print "Please input the word:";

  19. chomp (my $input = <STDIN>);

  20. my $response = $browser->post(

  21. #    'http://fanyi.youdao.com/translate?smartresult=dict&smartresult=rule&smartresult=ugc&sessionFrom=https://www.google.com.hk/',

  22.     'http://fanyi.youdao.com/translate?smartresult=dict&smartresult=rule&smartresult=ugc&sessionFrom=null',

  23.     [

  24.         'type' => 'AUTO',

  25.         'i' => "$input",

  26.         'doctype' => 'json',

  27.     ],

  28.     );

  29. 

  30. if($response->is_success){

  31.     my $result = $response->content;

  32.     my $json = new JSON;

  33.     my $obj = $json->decode($result);

  34.     #print Dumper $obj;

  35.     my $trans = @{$obj->{'translateResult'}[0]}[0]->{"tgt"};

  36.     my $string;

  37.     eval{

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

  39.     };

  40. 

  41.     my $say1="\x{7ffb}\x{8bd1}\x{7ed3}\x{679c}\x{ff1a}";

  42.     my $say2="\x{5176}\x{4ed6}\x{7ed3}\x{679c}\x{ff1a}";

  43.     $trans=decode('UTF-8',$trans) if $trans;

  44.     $string=decode('UTF-8',$string) if $string;

  45. 

  46.     print $say1, $trans, "\n", $say2, $string, "\n";

  47. }

  48. <STDIN>;
复制代码
作者: PowerShell    时间: 2014-1-11 13:28

-------[转]perl使用LWP模块写的翻译小程序------------
从标题
1 我看不出能翻译单词还是句子，还是翻译网页，还是文档翻译。
2 我看不出此脚本可以 从哪种语言到那种语言的翻译。
3 只要是翻译，必然涉及上述2问题，所以我把此贴标题鉴定为差，建议此版版主勒令其更改标题，或者要求其在脚本头增加注释，以说明上述2问题。
作者: PowerShell    时间: 2014-1-11 13:29

-------[转]perl使用LWP模块写的翻译小程序------------
从上述标题中：
1 我看不出能翻译单词还是句子，还是翻译网页，还是文档翻译。
2 我看不出此脚本可以 从哪种语言到那种语言的翻译。
3 只要是翻译，必然涉及上述2问题，所以我把此贴标题鉴定为差，建议此版版主勒令其更改标题，或者要求其在脚本头增加注释，以说明上述2问题。



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2