Get Word Definition from dict.youda.com

via Perl Script

获取基本释义

Get Basic Definition

http://dict.youdao.com/fsearch?q=abstain&doctype=json&xmlVersion=3.2&Version=1.2

• ** q ** 要查的单词或词组
• 只能返回xml格式的，xmlVersion不同会有不同

或者使用
linux命令行下翻译工具

但是没有网页版获取的全

所以那就提取页面文字呗

#!/usr/bin/perluse utf8;
use v5.18.2;
binmode STDOUT, 'utf8';
binmode STDERR, 'utf8';use Web::Query;
use HTML::Entities;
my $ok;
my $saveDir = '/Users/ruili/Code/Perl5/word';
my $word = $ARGV[0];
if ( -f "$saveDir/".$ARGV[0] && ! -z "$saveDir/".$ARGV[0] ) {#如果文件不为空say "$ARGV[0]已经存在了";exit;
}
open OUT, ">$saveDir/".$ARGV[0] or die "Write out Die\n";
binmode OUT, 'utf8';my $desc = wq("http://dict.youdao.com/w/eng/".$word."/#keyfrom=dict2.index");# 是否有柯林斯解释
my $ok = ${$desc->find("#collinsResult")->{trees}}[0];
if (! $ok){#没有柯林斯say STDERR "没有柯林斯词典";
}else{# 获取柯林斯解释say OUT "\n##########柯林斯英汉词典##########\n";my $collinsDesc = $desc->find('#collinsResult')->find('.ol');$collinsDesc->find('.collinsMajorTrans')->each(sub{my ($i,$elem) = @_;$elem = $elem->html();$elem =~ s|</?[^<>]+>||g;$elem =~ s|\n||g;say OUT "$elem";});$collinsDesc->find('.exampleLists')->each(sub{my ($i,$elem) = @_;$i++;$elem = $elem->html();$elem =~ s|</?[^<>]+>||g;$elem =~ s|\n||g;say OUT decode_entities($elem);});say STDERR "柯林斯英汉词典 OK";
}# 是否有21世纪解释
$ok = ${$desc->find("#authDictTrans")->{trees}}[0];
if (! $ok){#没有这个元素say STDERR "没有21世纪大英汉词典";
}else{# 获取21世纪大英汉词典say OUT "\n##########21世纪大英汉词典##########\n";my $enzh21 = $desc->find("#authDictTrans");my $ol = $enzh21->find('.ol.wordGroup');$ok = ${$ol->{trees}}[0];if(!$ok){say STDERR "没有";}else{$enzh21->find('.ol.wordGroup .wordGroup')->each(sub{my ($i,$elem) = @_;$elem = $elem->html();$elem =~ s|</[a-zA-Z]+>|\n|g;$elem =~ s|</?[^<>]+>||g;$elem =~ s|\n{2,}|\n|g;say OUT decode_entities("$i: $elem");});say STDERR "21世纪大英汉词典 OK";}$enzh21->find('ul .wordGroup')->each(sub {my ($i,$elem) = @_;$elem = $elem->html();$elem =~ s|</[a-zA-Z]+>|\n|g;$elem =~ s|</?[^<>]+>||g;$elem =~ s|\n{2,}|\n|g;say OUT decode_entities("$i: $elem");});
}# 是否有网络解释
$ok = ${$desc->find("#tWebTrans")->{trees}}[0];
if (! $ok){#没有这个元素say STDERR "没有网络释义";
}else{say STDERR "网络释义 OK";say OUT "\n##########网络释义##########";#有词条my $web = $desc->find("#tWebTrans");$web->find(".wt-container .title")->each(sub {my ($i,$elem) = @_;$elem = $elem->html();$elem =~ s|</?[^<>]+>||g;$elem =~ s|\n{2,}|\n|g;$i++;say OUT decode_entities("$i: $elem");});#短语say OUT "\n###短语###";$web->find("#webPhrase .wordGroup")->each(sub {my ($i,$elem) = @_;$elem = $elem->html();$elem =~ s|</?[^<>]+>||g;$elem =~ s|\n{2,}|\n|g;$i++;say OUT decode_entities("$i: $elem");});
}

效果

##########柯林斯英汉词典##########1. ADJ Someone who is abstemious avoids doing too much of something enjoyable such as eating or drinking. 有节制的 [正式]##########21世纪大英汉词典##########0: (尤指在饮食方面)(人)有度的，有节制的，适度的1: (生活等)以节制为特点的2: (饮食等)简单而有节制的；节俭的，节省的0: adj.
(尤指在饮食方面)(人)有度的，有节制的，适度的
(生活等)以节制为特点的
(饮食等)简单而有节制的；节俭的，节省的1: adj.
2: (尤指在饮食方面)(人)有度的，有节制的，适度的
(生活等)以节制为特点的
(饮食等)简单而有节制的；节俭的，节省的3: (尤指在饮食方面)(人)有度的，有节制的，适度的4: (生活等)以节制为特点的5: (饮食等)简单而有节制的；节俭的，节省的##########网络释义##########
1:    有节制的
2:    节俭的
3:    节制的
4:    节约的###短语###
1: abstemious a 有节制的
2: abstemious area 温带
3: abstemious society 节约型社会
4: abstemious meals 适度的吃
5: abstemious style 节约型
6: abstemious habits 节制饮食的习惯
7: building abstemious society 构建节约型社会
8: an abstemious diet 节俭的饮食 ; 饮食有度
9: be abstemious in drinking 节制饮酒