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

#! /usr/bin/perl
# 学习perl LWP时用post做的翻译小脚本
# 调用的是有道词典
# 作者：第2012位菜鸟
# 原文链接 http://www.cnblogs.com/caibird/archive/2013/03/22/2974999.html
# 2014-01-10 增加编码判断+按CP936规范输出，适合在windows命令行显示 - paktc

use strict;
use warnings;
use LWP::UserAgent;
use JSON ;
use Encode;
#use Data::Dumper;

my $mode=recogn();
binmode(STDOUT,':encoding(CP936)');

my $browser = LWP::UserAgent->new();
print "Please input the word:";
chomp (my $input = <STDIN>);
my $response = $browser->post(
#    'http://fanyi.youdao.com/translate?smartresult=dict&smartresult=rule&smartresult=ugc&sessionFrom=https://www.google.com.hk/',
    'http://fanyi.youdao.com/translate?smartresult=dict&smartresult=rule&smartresult=ugc&sessionFrom=null',
    [
        'type' => 'AUTO',
        'i' => "$input",
        'doctype' => 'json',
    ],
    );

if($response->is_success){
    my $result = $response->content;
    my $json = new JSON;
    my $obj = $json->decode($result);
    #print Dumper $obj;
    my $trans = @{$obj->{'translateResult'}[0]}[0]->{"tgt"};
    my $string;
    eval{
        $string  = join " ", @{$obj->{'smartResult'}->{"entries"}};
    };

    my $say1=decode($mode,"翻译结果：");
    my $say2=decode($mode,"\n其他结果: ");
    $trans=decode('UTF-8',$trans) if $trans;
    $string=decode('UTF-8',$string) if $string;

    print $say1, $trans, $say2, $string, "\n";
}
<STDIN>;

# 判断当前脚本编码格式  仅在WIN32中文系统测试过
sub recogn {
    my $cn="中";
    my $code;
    my @arr=split("",$cn);
    if ($#arr == 0) {            # 'Unicode' 4e2d
        $code='Unicode';
    } elsif ($#arr == 1) {       # 'GBK'   d6 d0 
        $code='GBK';
    } elsif ($#arr == 2) {       # 'UTF-8' e4 b8 ad
        $code='UTF-8';
    } else {
        $code='WHAT?';
    }
}
复制代码

#! /usr/bin/perl
# 学习perl LWP时用post做的翻译小脚本
# 调用的是有道词典
# 作者：第2012位菜鸟
# 原文链接 http://www.cnblogs.com/caibird/archive/2013/03/22/2974999.html
# 2014-01-10 增加编码判断+按CP936规范输出，适合在windows命令行显示 - paktc

use strict;
use warnings;
use LWP::UserAgent;
use JSON ;
use Encode;
#use Data::Dumper;

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

my $browser = LWP::UserAgent->new();
print "Please input the word:";
chomp (my $input = <STDIN>);
my $response = $browser->post(
#    'http://fanyi.youdao.com/translate?smartresult=dict&smartresult=rule&smartresult=ugc&sessionFrom=https://www.google.com.hk/',
    'http://fanyi.youdao.com/translate?smartresult=dict&smartresult=rule&smartresult=ugc&sessionFrom=null',
    [
        'type' => 'AUTO',
        'i' => "$input",
        'doctype' => 'json',
    ],
    );

if($response->is_success){
    my $result = $response->content;
    my $json = new JSON;
    my $obj = $json->decode($result);
    #print Dumper $obj;
    my $trans = @{$obj->{'translateResult'}[0]}[0]->{"tgt"};
    my $string;
    eval{
        $string  = join " ", @{$obj->{'smartResult'}->{"entries"}};
    };

    my $say1="\x{7ffb}\x{8bd1}\x{7ed3}\x{679c}\x{ff1a}";
    my $say2="\x{5176}\x{4ed6}\x{7ed3}\x{679c}\x{ff1a}";
    $trans=decode('UTF-8',$trans) if $trans;
    $string=decode('UTF-8',$string) if $string;

    print $say1, $trans, "\n", $say2, $string, "\n";
}
<STDIN>;
复制代码