开元周游
德国频道
楼主: 有容乃大
打印 上一主题 下一主题

[软件] 免费词典翻译软件

[复制链接]
11#
发表于 27.6.2009 13:31:42 | 只看该作者
即时机票
Babylon我用过,还可以。
回复 支持 反对

使用道具 举报

12#
发表于 27.6.2009 13:37:57 | 只看该作者
有人习惯用linux系统,习惯用命令行的吗?

动机:经常需要 德 英 中的互翻, 手头软件不方便,加之用惯了命令行

用法:
tr.pl 要查的词 怎么查
怎么查为:
de(德翻英)
dz (德中)
ez (英中)
ed (英德)

代码如下, 用的是google的translate
要先安装REST::Google::Translate;
用cpan

sudo cpan
install REST::Google::Translate



  1. #! /usr/bin/env perl
  2. use warnings;
  3. use strict;

  4. use  REST::Google::Translate;
  5. use UTF8;
  6. use Encode;

  7. my $word;
  8. my $tt;

  9. $word = shift;
  10. $tt = shift;
  11. my $lp;

  12. if ($tt eq "ed"){
  13.     $lp = 'en|de';
  14. }elsif ($tt eq "ez"){
  15.     $lp = 'en|zh';
  16. }elsif ($tt eq "dz"){
  17.     $lp = 'de|zh';
  18. }elsif ($tt eq "de"){
  19.     $lp = 'de|en';
  20. }else{
  21.     $lp = 'en|zh';
  22. }

  23.         REST::Google::Translate->http_referer('http://example.com');
  24. my $res = REST::Google::Translate->new(
  25.     q => $word,
  26. langpair => $lp
  27.     );

  28. die "response status failure" if $res->responseStatus != 200;

  29. my $translated = $res->responseData->translatedText;

  30. binmode STDOUT, ":utf8";
  31. printf "translation: %s\n", $translated;
复制代码
回复 支持 反对

使用道具 举报

13#
发表于 27.6.2009 13:39:30 | 只看该作者
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

站点信息

站点统计| 举报| Archiver| 手机版| 小黑屋

Powered by Discuz! X3.2 © 2001-2014 Comsenz Inc.

GMT+1, 14.11.2024 06:19

关于我们|Apps

() 开元网

快速回复 返回顶部 返回列表