代码： 全选
☎ cat baike.pl
#!/usr/bin/perl
use LWP;
use LWP::UserAgent;
use Encode;
my $ua = LWP::UserAgent->new();
$ua->max_size( 35 * 1024 );
$in=`echo $ARGV[0]|iconv -f utf8 -t gbk|uni2ascii -a J`;
my $reply = $ua->get("http://baike.baidu.com/list-php/dispose/searchword.php?word=".$in."&pic=0");
my $html;
if($reply->is_success){
$html = $reply->content;
$html=~/URL=(.*)'/;
my $new=$1;
if($new!~/\d+\.htm/){print "没有收录。$new。";die;}
print "实际链接：http://baike.baidu.com".$new;
my $reply = $ua->get("http://baike.baidu.com".$new);
if($reply->is_success){
$html = $reply->content;
$html=~s/^.*?<\/h\d>//is; # 开头到</h1>删除
$html=~s/<.*?>//gis;
$html=~s/\ *//gis;
#$html=~s/&.*?;//gis;
#s/&/&/g; s/>/>/g; s/</</g;
#s/"/"/g; s/ / /g;
$html=~s/\x0d\x0a/\n/gis;
$html=decode("GBK", $html);
$html=encode("UTF-8", $html);
$html=~s/百度百科.*//is;
$html=~s/\xe3\x80\x80//gim;
$html=~s/^[\x00-\x80]+$//gim; # 全英文行
$html=~s/^$//gis;
if($ARGV[1]){
$html=~s/\x0a+/ ► /gis;
}
print $html;
}
}
else {die "无法获取的地址。";}
2009-04-27 08:50:44 一 ~
☎ baike.pl cam
实际链接：http://baike.baidu.com/view/4211.htm
CAM有六个常见解释：
1、CAM(computerAidedManufacturing，计算机辅助制造)：利用计算机来进行生产设备管理控制和操作的过程。它输入信息是零件的工艺路线和工序内容，输出信息是刀具加工时的运动轨迹(刀位文件)和数控程序。
2、补充和另类医学，complementaryandalternativemedicine。
亦指内容可寻址存储器（ContentAddressableMemory）。
3、电影用于：CAM（枪版）
CAM通常是用数码摄像机从电影院盗录。即digitalcamera或camcorder的缩写，俗称枪版。有时会使用小三角架，但大多数时候不可能使用，所以摄像机会抖动。因此我们看到画面通常偏暗人物常常会失真，下方的字幕时常会出现倾斜。由于声音是从摄像机自带的话筒录制，所以经常会录到观众的笑声等声音。因为这些因素，图象和声音质量通常都很差。
4、细胞粘着分子(celladhesionmolecule,CAM)
参与细胞粘着的分子称为细胞粘着分子。
5.条件接收模块（ConditionalAccessModule),
常用与付费电视终端以及头端的解扰模块，属于卫星电视术语范畴。
6.景天科酸代谢
景天科酸代谢（crassulaceanacidmetabolism）
许多肉质植物的一种特殊代谢方式，简称CAM。它们的绿色组织上的气孔夜间开放，吸收并固定CO2，形成以苹果酸为主的有机
