Chinaunix

标题: [分享] 使用有道API进行自动预翻译 [打印本页]
作者: Perlvim    时间: 2013-03-27 10:32
标题: [分享] 使用有道API进行自动预翻译
最近翻译了一些东西，发现如果每次有翻译提示，即使翻译的前言不搭后语，但如果将那些生词都提示出来了，也能帮助我尽快的掌握原文意思，进行翻译：

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

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

这是个模块，叫 Translate::Youdao

调用的时候：
  1. #!perl
  2. #
  3. use 5.014;
  4. use Translate::Youdao qw(translate_with_youdao);

  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)

内容如下：
  1. package Translate::Youdao;

  3. use Exporter;
  4. our @ISA = qw(Exporter);
  5. our @EXPORT_OK = qw(translate_with_youdao);

  7. use 5.014;
  8. use YAML qw(Dump);
  9. use WebService::Simple;
  10. use utf8;

  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. );

  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. };

  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);

  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. }

  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. }

  99. 1;
复制代码
作者: mcshell    时间: 2013-03-27 11:32
支持楼主 {:3_200:}
作者: 只是一个红薯    时间: 2013-03-27 11:43
学习了
作者: owwa    时间: 2013-10-29 07:48
支持！学习！谢谢！！



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2