[分享] 使用有道API进行自动预翻译

Perlvim

最近翻译了一些东西，发现如果每次有翻译提示，即使翻译的前言不搭后语，但如果将那些生词都提示出来了，也能帮助我尽快的掌握原文意思，进行翻译：

也可以将内容贴到有道词典中，获取翻译数据，但复制粘帖多了，就烦了，何不用Perl语言实现呢？

以下ID是我申请的，一个小时内不能用超过1000次，所有大家最好自己申请一个新的：

这是个模块，叫 Translate::Youdao

调用的时候：

1. #!perl
   
2. #
   
3. use 5.014;
   
4. use Translate::Youdao qw(translate_with_youdao);
   
5. 
   
6. my $need_translate_str = 'You can find the answers to these exercises in ( Answers for Chapter 16 ) on page 345.';
   
7. #$need_translate_str = 'We';
   
8. say translate_with_youdao($need_translate_str);

复制代码

模块保存在 Translate/Youdao.pm 中：
Youdao.rar (1.1 KB, 下载次数: 17)

2013-03-27 10:32 上传

点击文件名下载附件

内容如下：

1. package Translate::Youdao;
   
2. 
   
3. use Exporter;
   
4. our @ISA = qw(Exporter);
   
5. our @EXPORT_OK = qw(translate_with_youdao);
   
6. 
   
7. use 5.014;
   
8. use YAML qw(Dump);
   
9. use WebService::Simple;
   
10. use utf8;
    
11. 
    
12. my $service = WebService::Simple->new(
    
13.   base_url        => 'http://fanyi.youdao.com/openapi.do',
    
14.   param           => {
    
15.     keyfrom => 'Songzan',
    
16.     key     => '363993902',
    
17.     type    => 'data',
    
18.     doctype => 'json',
    
19.     version => '1.1',
    
20.   },
    
21.   response_parser => 'JSON',
    
22. );
    
23. 
    
24. my $error_info = {
    
25.   20 => 'text is long than 200 characters',
    
26.   30 => 'could not process valid translate',
    
27.   40 => 'Could not support this language',
    
28.   50 => 'Invalid key',
    
29. };
    
30. 
    
31. #my $need_translate_str = 'We have used numerous methods throughout this book.';
    
32. #$need_translate_str = 'We';
    
33. #say translate_with_youdao($need_translate_str);
    
34. 
    
35. sub translate {
    
36.   my $need_translate_str = shift;
    
37.   state $count = 0;
    
38.   $count++;
    
39.   say "call Youdao API $count times";
    
40.   $need_translate_str =~ s/n't / not /g;
    
41.   $need_translate_str =~ s/'ll / will /g;
    
42.   $need_translate_str =~ s/'re / are /g;
    
43.   $need_translate_str =~ s/t's/t is/g;
    
44.   if ($need_translate_str =~ /(['"]).*?\1/) {
    
45.     LOOP_REPLACE:
    
46.     foreach (1 .. 5) {
    
47.       $need_translate_str =~ s/['"]/(/;
    
48.       my $time = $need_translate_str =~ s/['"]/)/;
    
49.       last LOOP_REPLACE if ($time eq '');
    
50.     }
    
51.   }
    
52.   my $res = $service->get( { q => $need_translate_str } );
    
53.   my $json = $res->parse_response;
    
54.   my $error_code = $json->{errorCode};
    
55.   if ($error_code == 0) {
    
56.     my $translation = $json->{translation};
    
57.     # say ref($translation);
    
58.     my @lines = @{$translation};
    
59.     my $str = join ' ', @lines;
    
60.     # sleep(4);
    
61.     return $str;
    
62.   }
    
63.   else {
    
64.     say 'Warning!' . $error_info->{$error_code};
    
65.     return 0;
    
66.   }
    
67. }
    
68. 
    
69. sub translate_with_youdao {
    
70.   my $en_str = shift;
    
71.   if (length($en_str) < 199) {
    
72.     return translate($en_str);
    
73.   }
    
74.   my @str_list = split /\h?\.\h/, $en_str;
    
75.   my @cn_str_list = ();
    
76.   foreach my $str (@str_list) {
    
77.     if (length($str) < 199) {
    
78.       # push @all_lines, "$line_number:$file";
    
79.       push @cn_str_list, translate($str);
    
80.     }
    
81.     else {
    
82.       my @sub_str_list = split /\h?[,\?]\h/, $str;
    
83.       my @sub_cn_str_list = ();
    
84.       foreach my $sub_str (@sub_str_list) {
    
85.         if (length($sub_str) > 199) {
    
86.           say "Length exceed 200 characters:";
    
87.           say "<$sub_str>";
    
88.           next;
    
89.         }
    
90.         push @sub_cn_str_list, translate($sub_str);
    
91.       }
    
92.       push @cn_str_list, @sub_cn_str_list;
    
93.     }
    
94.   }
    
95.   my $cn_str = join ' ', @cn_str_list;
    
96.   return $cn_str;
    
97. }
    
98. 
    
99. 1;
    

复制代码

mcshell

支持楼主 {:3_200:}

只是一个红薯

学习了

owwa

支持！学习！谢谢！！