摘要：
原文网址：http://hi.baidu.com/rdzwx/blog/item/6b52c9c4bdf70c179d163d81.htmlperl 半角 全角 转换2010-05-18 10:33# 全角字符第一字节 = 163(0xA3), 第二字节为对应半角字符 + 128# 全角中文第一字节 > 163my $str = ‘０１９ＡａＢｂＹｙＺｚ＼＂，．？＜＞｛｝［］＊＆＾％＃＠！～（）＋－｜：；';print "$str\n";$str =~ s/\x{A3}(.)/chr(ord($1) - 128)/eg;print "$str\n&q 阅读全文
摘要：
1. 任务 为了实现一些机械分词算法，准备使用“国家语委语料库”的分词词表，在线下载到得词表文件是一个Excel文件。本文的任务就是使用Perl从该Execl文件中提取所有的词语。词表文件格式如下： 需要的词语的位置在从第8行开始的，第B列的所有单元格。一共有14629个词语。（PS：语料库的分词词表包含8万多个词语，但是在线下载到是出现次数在50次以上的词语，只有这1万多）。2. 使用什么模块 通过阅读一些博文发现，PERL的Spreadsheet::ParseExcel模块支持Excel的读操作。3. 如何下载模块（windows xp上的草莓PERL）在命令行下输入：cpan Sprea 阅读全文
摘要：
原文网址：http://hi.baidu.com/0soul/blog/item/91098701f5051880e850cd4b.html原文：http://www.perl.com/pub/a/2002/08/20/perlandlwp.html版权信息有点多，其它的我写在最后。我觉得这个Perl的LWP文档挺不错的，所以就转过来，方便随时查阅，呵呵。下面是转载内容：************************************************************************************The Fuck Cutline************* 阅读全文
摘要：
原文网址：http://hi.baidu.com/jackywdx/blog/item/35bb33daedb414dfb7fd4867.html一 LWP::Simple 功能1. 如何在Perl中使用该模块？use LWP::Simple;2. 如何获取一个页面内容？my $content = get(’http://www.yahoo.com.cn’);get函数把从www.yahoo.com.cn上获取得页面内容全部赋给$content这个变量，如果获取失败将返回一个undef的值。3. 如何获取头(Header)？my (b, d, $e) = header(’http://www. 阅读全文
摘要：
1. 题目2. 代码与输出1#-----------------------------------------------------------#2#Source:LearningPerl,chapter10,exercise-13#Date:2012-01-204#Author:xiaodongrush5#-----------------------------------------------------------#6use5.010;7$secret_num=int(1+rand100);8while(<STDIN>){9chomp;10if(/^[0-9]+$/) 阅读全文
摘要：
1. 题目 2. 代码与输出 1#-----------------------------------------------------------#2#Source:LearningPerl,chapter9,exercise-13#Date:2012-01-194#Author:xiaodongrush5#-----------------------------------------------------------#6use5.010;7@array=qw{8fredfredfred9fredfredbarney10barneyfredfred11barneybarneyba. 阅读全文
摘要：
1. 题目 2. 代码与输出1#-----------------------------------------------------------#2#Source:LearningPerl,chapter8,exercise-13#Date:2012-01-184#Author:xiaodongrush5#-----------------------------------------------------------#6use5.010;7while(<>){8chomp;9if($_=~m|match|){10say"<$`><$& 阅读全文
摘要：
1. 题目 原始题目阐述有些问题，这里说明一下。第1题：匹配包含fred的行。第2题：匹配包含fred或者Fred的行。第3题：匹配包含点号的行。第4题：匹配大写字母开头的行。第5题：包含连续两个相同的非空格字符的行，比如AA，aa，￥￥，等。第6题：匹配既有wilma也有fred的行。2. 代码与输出第1题：匹配包含fred的行。 1#-----------------------------------------------------------#2#Source:LearningPerl,chapter7,exercise-13#Date:2012-01-174#Author:xi. 阅读全文
摘要：
1. 题目2. 代码与输出 ch6-family-name.pl1#-----------------------------------------------------------#2#Source:LearningPerl,chapter6,exercise-13#Date:2012-01-164#Author:xiaodongrush5#-----------------------------------------------------------#6use5.010;7%family_name_hash=(8"fred"=>"flintst 阅读全文
摘要：
1. 习题 2. 代码与输出cat_reverse.pl1#-----------------------------------------------------------#2#Source:LearningPerl,chapter5,exercise-13#Date:2012-01-154#Author:xiaodongrush5#-----------------------------------------------------------#6use5.010;7while(<>){chomp;unshift@array,$_;}8foreach(@array){s 阅读全文