google 字典perl 脚本
发表于 : 2010-10-23 17:06
依赖:w3m
用法:dict.pl someword
用法:dict.pl someword
代码: 全选
#!/usr/bin/env perl
use strict;
use warnings;
sub usage {
print "$0 someword\n";
exit 1;
}
&usage if (@ARGV < 1);
my $word = $ARGV[0];
$_ = `w3m -cookie -dump 'http://www.google.com.hk/dictionary?langpair=en|zh-CN&q=$word&hl=zh-CN' 2>/dev/null`
or die "Network Error!\n";
if (/(^在.*找到.*)^更多.*»/ms){
print $1;
}else {
warn "Invalued word!\n";
exit 1;
}