批处理之家 - Powered by Discuz! Board

#! /usr/bin/perl
#学习perl LWP时用post做的翻译小脚本
#调用的是有道词典
use strict;
use warnings;
use LWP::UserAgent;
use JSON ;
#use Data::Dumper;
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"};
$trans = "翻译结果：$trans" if $trans;
my $string;
eval{
$string = join " ", @{$obj->{'smartResult'}->{"entries"}};
};
$trans = "$trans\n其他结果:$string" if $string;
print $trans."\n" // "Not found\n";
}

复制代码

#! /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>;

复制代码