[原]perl使用LWP模块写的翻译小程序 - 第2012位菜鸟 - 博客园

[原]perl使用LWP模块写的翻译小程序 - 第2012位菜鸟 - 博客园

[原]perl使用LWP模块写的翻译小程序

perl的LWP是抓取网页的经典模块，学习的过程中用这个模块写了一个小程序，是通过抓取有道翻译的翻译结果来实现的。废话不多说，先贴代码（解释见下文

复制代码

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

}

复制代码

LWP实现表单POST提交

在chrome下打开有道翻译，然后在打开审查元素功能，试着输入hello,然后使用自动翻译，就可以捕获到下列的POST请求。

我们使用LWP::UserAgent模块来模仿浏览器实现的POST功能。LWP的经典教程可以在这里学习。

需要调用的函数为 $browser->post(url, pairs_arrayref)，其中，pairs_arrayref为提交的参数,在这里我们根据Form Data里的信息就可以得出参数列表，我们这里的列表选择的是i代表提交的需翻译的单词，type是自动翻译，doctype 指的是返回的数据为json数据

复制代码

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\',

],

);

复制代码

解析JSON

返回的JSON如下

{"type":"ZH_CN2EN","errorCode":0,"elapsedTime":10,"translateResult":[[{"src":"你好","tgt":"How are you"}]],"smartResult":{"type":1,"entries":["","hello；hi"]}}

其中translateResult是翻译结果，smartResult是其它结果。

我们使用的是perl的JSON模块来对json数据进行解析(JSON模块的文档见这里)

my $result = $response->content;

my $json = new JSON;

my $obj = $json->decode($result);

使用decode将json数据转化成了perl的数据，返回的是对象的引用。

为了方便，我们可以将其用Dumper将对象打印出来看内部的结构(Data::Dumper的文档在这里)

print Dumper $obj

这是翻译“你好”的时候显示的结果(终端下中文有点乱码..)：

复制代码

$VAR1 = {

\'smartResult\' => {

\'entries\' => [

\'\',

"hello\x{ef}\x{bc}\x{9b}hi"

],

\'type\' => 1

},

\'errorCode\' => 0,

\'translateResult\' => [

[

{

\'tgt\' => \'How are you\',

\'src\' => "\x{e4}\x{bd}\x{a0}\x{e5}\x{a5}\x{bd}"

}

]

],

\'type\' => \'ZH_CN2EN\',

\'elapsedTime\' => 10

};

复制代码

可以看出整个$obj是一个匿名哈希引用，而其中smartResult也是一个匿名哈希引用，translateResult则是一个匿名数组引用，然后一层层下去，最终键src的的值为翻译结果(关于perl的引用可以看我的另外一篇博文)于是，我们可以用下列方式提取翻译结果。

my $trans = @{$obj->{\'translateResult\'}[0]}[0]->{"tgt"}; #最终翻译结果

@{$obj->{\'smartResult\'}->{"entries"}}; #其他智能翻译结果

最后运行截图：

分类: perl, 菜鳥日記

标签: perl, json, LWP