#!/usr/bin/perl -w# 程序代码只是简单说明获取解析网页内容及匹配模式使用的例子，逻辑并不是很严密use utf8;binmode(STDIN, ':encoding(utf8)');binmode(STDOUT, ':encoding(utf8)');binmode(STDERR,...
分类：
Web程序 时间：
2014-07-24 09:46:53
阅读次数：
260
perl命令行参数默认存储在perl自定义变量@ARGV中。#判断参数个数是否为0，根据上下文环境这里就是==符号，这里@ARGV指的是命令行参数数组元素个数if(@ARGV == 0)# 这里@ARGV指的是命令行参数数组，对数据元素遍历，打印出每个元素，这里的$_为foreach的默认自增变量f...
分类：
其他好文 时间：
2014-07-24 09:46:23
阅读次数：
284
#判断一个变量是否匹配一个空字符串，m!pattern! 与 m/pattern/if($str =~ m!^\s*$!)如果仅仅判断字符串为空，可以使用if($str eq "")# 判断$doc变量是否与给定模式相匹配，模式字符串包含字符，\s表示包含空白，[^]*表示匹配不为字符的任何字符。#...
分类：
其他好文 时间：
2014-07-24 09:43:42
阅读次数：
249
# 使用LWP模块的get函数获取网页内容。use LWP::Simple;my $doc=get("http://www.csdn.net");# 获取网页内容后可以对内容进行提取或者其它处理# 将网页内容打印出来print $doc;# 使用post函数向web服务器提交请求。use LWP::...
分类：
Web程序 时间：
2014-07-24 05:08:28
阅读次数：
237
perl中DBI模块为mysql数据库相关操作的接口，首先需要在环境中安装DBI模块。perl处理数据库操作的大致步骤如下：#声明使用DBI模块use DBI;#设置数据库连接参数，指定连接数据库名，数据库所在服务器ip地址，连接用户名，密码# db_name为要连接的数据库名，ip为数据库所在服务...
分类：
数据库 时间：
2014-07-24 05:07:28
阅读次数：
343
# 使perl程序支持utf8宽字符编码，不添加下面几行打印中文字符时将出现Wide character in print警告或错误。use utf8;binmode(STDIN, ':encoding(utf8)');binmode(STDOUT, ':encoding(utf8)');binmo...
分类：
其他好文 时间：
2014-07-24 05:06:38
阅读次数：
258
说明：Nikto2 是一款使用perl 语言写的多平台扫描软件，是一款 命令行模式的工具，它可以扫描指定主机的web类型、主机名、特定目录、cookie、特定cgi 漏洞、xss漏洞、sql注入漏洞、返回主机允许的http 方法等安全问题。Nikto 是一款非常著名的web评估工具，几乎到了无人不知...
分类：
其他好文 时间：
2014-07-23 16:20:31
阅读次数：
364
最近想开源一套软件，对于一些代码都要在文件头上加上固定格式的版本信息。自己用perl写了一个小工具，拿出来分享。 1 #!/usr/bin/perl -W 2 # 3 # Copyright (c) 2014 Nijie. All rights reserved. 4 # License: ...
分类：
其他好文 时间：
2014-07-23 14:51:06
阅读次数：
199
#include
int main()
{
int a,b;
while(scanf("%d%d",&a,&b)!=EOF)
{
int i,last;
a=a%10;
b=b%4;
last=a;//必须在此处将a的值赋给last
if(b==0) b=4;
for(i=1;i<b;i++)
{
last=a*last%10;
}
printf...
分类：
其他好文 时间：
2014-07-23 13:23:26
阅读次数：
282
Win8.1(专业版)下执行Perl(版本5.18.2)的PPM工具提示:C:\Users\宁>ppmppm gui failed: DBI connect('dbname=C:\Users\宁\AppData\Local/ActiveState/ActivePerl/1802/ppm-MSWin....
分类：
Windows程序 时间：
2014-07-23 11:34:16
阅读次数：
1599
