代码
比这篇新的文章:
Javascript string escapeHTML
比这篇旧的文章: Test
作者: liufeng, 点击503次, 评论(2), 收藏者(0), , 打分:
所有评论，共2条：( 我也来说两句)
比这篇旧的文章: Test
海词客户端简化版
语言: Perl, 标签: 无 2009/04/16发布 11个月前更新作者: liufeng, 点击503次, 评论(2), 收藏者(0), , 打分:
Perl语言: 海词客户端简化版
01 #!/usr/bin/perl -w
02
03 use utf8;
04 use Encode;
05 use LWP::Simple;
06
07 if ($#ARGV == 0) {
08 $word = $ARGV[0];
09 } else {
10 $word = shift @ARGV;
11 foreach $arg (@ARGV) {
12 $word .= "-" . $arg;
13 }
14 }
15
16 my $url = "http://dict.cn/" . $word . ".htm";
17 my $content = decode("gbk", get $url);
18 @lines = split /\n/, $content;
19 $meaning = $lines[79];
20
21 if ($meaning =~ /<strong>(.*)<\/strong>/) {
22 $_ = $1;
23 s/<br \/>/\n/g;
24 print encode("utf8", $_) . "\n";
25 }
02
03 use utf8;
04 use Encode;
05 use LWP::Simple;
06
07 if ($#ARGV == 0) {
08 $word = $ARGV[0];
09 } else {
10 $word = shift @ARGV;
11 foreach $arg (@ARGV) {
12 $word .= "-" . $arg;
13 }
14 }
15
16 my $url = "http://dict.cn/" . $word . ".htm";
17 my $content = decode("gbk", get $url);
18 @lines = split /\n/, $content;
19 $meaning = $lines[79];
20
21 if ($meaning =~ /<strong>(.*)<\/strong>/) {
22 $_ = $1;
23 s/<br \/>/\n/g;
24 print encode("utf8", $_) . "\n";
25 }
所有评论，共2条：( 我也来说两句)
| 1 |
半瓶墨水
11个月前
回复
不错，真够简化的，我喜欢命令行
|
| 2 |
@半瓶墨水: 惭愧。限于目前的能力，有点过于简化了。等有时间再把例句也一起输出来。详情请见：http://blog.cnliufeng.com/2009/04/dict-cn-client.html
|
