摘要: #!/usr/bin/perl -w# 程序代码只是简单说明获取解析网页内容及匹配模式使用的例子,逻辑并不是很严密use utf8;binmode(STDIN, ':encoding(utf8)');binmode(STDOUT, ':encoding(utf8)');binmode(STDERR,... 阅读全文
posted @ 2014-07-23 23:45 Bennnyzhao 阅读(619) 评论(0) 推荐(0) 编辑
摘要: perl命令行参数默认存储在perl自定义变量@ARGV中。#判断参数个数是否为0,根据上下文环境这里就是==符号,这里@ARGV指的是命令行参数数组元素个数if(@ARGV == 0)# 这里@ARGV指的是命令行参数数组,对数据元素遍历,打印出每个元素,这里的$_为foreach的默认自增变量f... 阅读全文
posted @ 2014-07-23 23:33 Bennnyzhao 阅读(934) 评论(0) 推荐(0) 编辑
摘要: #判断一个变量是否匹配一个空字符串,m!pattern! 与 m/pattern/if($str =~ m!^\s*$!)如果仅仅判断字符串为空,可以使用if($str eq "")# 判断$doc变量是否与给定模式相匹配,模式字符串包含字符,\s表示包含空白,[^]*表示匹配不为字符的任何字符。#... 阅读全文
posted @ 2014-07-23 23:32 Bennnyzhao 阅读(666) 评论(0) 推荐(0) 编辑
摘要: # 使用LWP模块的get函数获取网页内容。use LWP::Simple;my $doc=get("http://www.csdn.net");# 获取网页内容后可以对内容进行提取或者其它处理# 将网页内容打印出来print $doc;# 使用post函数向web服务器提交请求。use LWP::... 阅读全文
posted @ 2014-07-23 23:31 Bennnyzhao 阅读(822) 评论(0) 推荐(0) 编辑
摘要: # 使perl程序支持utf8宽字符编码,不添加下面几行打印中文字符时将出现Wide character in print警告或错误。use utf8;binmode(STDIN, ':encoding(utf8)');binmode(STDOUT, ':encoding(utf8)');binmo... 阅读全文
posted @ 2014-07-23 23:29 Bennnyzhao 阅读(244) 评论(0) 推荐(0) 编辑
摘要: perl中DBI模块为mysql数据库相关操作的接口,首先需要在环境中安装DBI模块。perl处理数据库操作的大致步骤如下:#声明使用DBI模块use DBI;#设置数据库连接参数,指定连接数据库名,数据库所在服务器ip地址,连接用户名,密码# db_name为要连接的数据库名,ip为数据库所在服务... 阅读全文
posted @ 2014-07-23 23:28 Bennnyzhao 阅读(1566) 评论(0) 推荐(0) 编辑