当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 11 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 百科脚本
帖子发表于 : 2009-04-27 9:07 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
代码:
☎ 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/&amp;/&/g; s/&gt/>/g; s/&lt;/</g;
#s/&quot;/"/g; s/&nbsp;/ /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,形成以苹果酸为主的有机


_________________
● 鸣学


页首
 用户资料  
 
2 楼 
 文章标题 : Re: 百科脚本
帖子发表于 : 2009-04-27 9:17 
头像

注册: 2007-11-19 21:51
帖子: 6956
地址: 成都
送出感谢: 0 次
接收感谢: 4
居然用百度百科?


页首
 用户资料  
 
3 楼 
 文章标题 : Re: 百科脚本
帖子发表于 : 2009-04-27 9:20 
头像

注册: 2007-11-29 9:41
帖子: 8455
送出感谢: 0 次
接收感谢: 0 次
ee又出手了


页首
 用户资料  
 
4 楼 
 文章标题 : Re: 百科脚本
帖子发表于 : 2009-04-27 9:24 

注册: 2006-07-09 12:22
帖子: 1331
地址: 南京
送出感谢: 0 次
接收感谢: 1
xiooli 写道:
居然用百度百科?


页首
 用户资料  
 
5 楼 
 文章标题 : Re: 百科脚本
帖子发表于 : 2009-04-27 9:27 
头像

注册: 2006-12-17 13:34
帖子: 1818
地址: 武汉
送出感谢: 1
接收感谢: 0 次
:em03


_________________
人生长恨水长东;
远近高低各不同.


页首
 用户资料  
 
6 楼 
 文章标题 : Re: 百科脚本
帖子发表于 : 2009-04-27 9:35 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
irc bot的,输出太长,不能用,才贴这里的。
不知道你们感慨什么,难道有更好的地方?


_________________
● 鸣学


页首
 用户资料  
 
7 楼 
 文章标题 : Re: 百科脚本
帖子发表于 : 2009-04-27 9:44 
头像

注册: 2008-05-13 20:40
帖子: 686
地址: 江南西道
送出感谢: 0 次
接收感谢: 0 次
好东西,收藏了。


页首
 用户资料  
 
8 楼 
 文章标题 : Re: 百科脚本
帖子发表于 : 2009-04-27 10:48 
头像

注册: 2007-04-06 10:24
帖子: 2487
地址: ~/Shanghai
送出感谢: 0 次
接收感谢: 0 次
没写过perl脚本
看了看,还算看的懂

原来perl还真蛮简洁的 :em03


_________________
http://silenceisdefeat.com/~greco
代码:
''.join([chr(ord(c)-2) for c in 'O{"G/ockn"ku<"itgeq0ujkBiockn0eqo'])
echo -n "Z3JlY28uc2hpQGdtYWlsLmNvbQ==" | base64 -d


页首
 用户资料  
 
9 楼 
 文章标题 : Re: 百科脚本
帖子发表于 : 2009-04-28 11:19 
头像

注册: 2006-02-28 3:11
帖子: 2470
送出感谢: 0 次
接收感谢: 0 次
eexpress 写道:
irc bot的,输出太长,不能用,才贴这里的。
不知道你们感慨什么,难道有更好的地方?


http://en.wikipedia.org/wiki/Main_Page


_________________
一梦三年,
松风依旧,
萝月何曾老.


灵幽听微, 谁观玉颜?
灼灼春华, 绿叶含丹.


页首
 用户资料  
 
10 楼 
 文章标题 : Re: 百科脚本
帖子发表于 : 2009-04-30 21:40 
头像

注册: 2009-04-11 13:04
帖子: 29
送出感谢: 0 次
接收感谢: 0 次
刚刚加入论坛没多少天.就能感觉到ee肯定是个爱学.自学.有时间的家伙.你写的这个很不错哦.正想要这类的软件.感谢分享.[b][/b]


页首
 用户资料  
 
11 楼 
 文章标题 : Re: 百科脚本
帖子发表于 : 2009-04-30 21:44 
头像

注册: 2006-02-28 3:11
帖子: 2470
送出感谢: 0 次
接收感谢: 0 次
userzhiyuan 写道:
刚刚加入论坛没多少天.就能感觉到ee肯定是个爱学.自学.有时间的家伙.你写的这个很不错哦.正想要这类的软件.感谢分享.[b][/b]


人家阿姨是邪恶的资本家, 当然有大把的时间了


_________________
一梦三年,
松风依旧,
萝月何曾老.


灵幽听微, 谁观玉颜?
灼灼春华, 绿叶含丹.


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 11 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 3 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译