perl
ok_我的心
这个作者很懒,什么都没留下…
展开
-
perl, 匹配汉字, 中文处理步骤
1. #!/usr/bin/env perluse Encode qw(encode decode);while () { ($name) = /.*\\(.*)/; $name = decode('gb2312', $name); print if $name =~ /\p{Han}/;}__DATA__--------------------------原创 2013-08-11 01:01:28 · 8267 阅读 · 0 评论 -
Perl的die、warn、eval函数
die函数 18.4 错误处理 在很多情况下,系统调用可能会失败;例如,尝试打开不存在的文件,或者删除某个仍含有文件的目录,或者尝试读取没有读权限的文件。在前面的示例中,我们已经用到了die函数,本节将 详细讨论有关错误处理和错误处理函数的相关内容。这些函数包括die函数、warn函数和eval函数。 die函数用于在命令或文件句柄失败时转载 2013-08-11 02:03:40 · 2484 阅读 · 0 评论 -
perl 统计字符串中特定字符出现的次数
perl 统计字符串中特定字符出现的次数 最近写程序遇到如题问题,从网上搜了一些相关技巧,如下: (利用数组和哈希的方法就不再列出了)法一: #!/usr/bin/perl -w use strict; my $str = 'abcsfsaf#sdagasdga#sdgaghoiiopjh#dsfjkopahkl;fjh#dsjfklpafj原创 2013-08-11 01:28:30 · 12341 阅读 · 0 评论 -
perl formatting time
Formatting Time~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~方法一:use POSIX qw(strftime);my $timeStr1 = strftime "%Y-%m-%d", localtime;my $timeStr2 = strftime "%Y-%m-%d", loc原创 2013-08-11 01:20:18 · 718 阅读 · 0 评论 -
perl+SQlite
1. Common CmdsSqlite是一个小巧的嵌入式关系型数据库,几乎可以嵌入所有编程语言,特别是C,C++,PHP,Perl等。这里就介绍如何用Perl连接并操作Sqlite数据库。use DBI; # perl用以操作sqlite的模块,有这一个模块就足够了use strict; # 初学必须加上这一句,以严格要求语句的撰写use warnings;main:{原创 2013-08-11 01:08:26 · 686 阅读 · 0 评论 -
Perl语言substr应用
Perl语言substr应用use Encode; $str=decode('gbk',"测试文本"); print encode('gbk',substr($str,0,1)); =============================================指令:substr语法:substr($string,offset,length)原创 2013-08-11 01:05:48 · 10743 阅读 · 0 评论 -
perl 模式匹配总结
正则表达式――perl模式匹配From: http://blog.csdn.net/utopia_wang/article/details/1531285补充:http://www.regexlab.com/zh/regref.htmPractiacl Extraction and Report Language一.模式匹配操作符1.tr/ / / 替换操作符不支持正则原创 2013-08-11 00:46:06 · 906 阅读 · 0 评论 -
perl中utf-8编码的处理
为了比较方便,考虑这样一个应用:把html页面中的所有非汉字字符全部去掉。这里顺便告诉大家一个秘诀,只要文本被perl 按正确编码解释后,利用/w就可以匹配一个字母、数字、_、汉字,这个特性是不是很方便,所以我们只要用如下两次正则表达式就可以去掉所有非汉字字符,包括全角的一些标点(@#$%<,())也能去的很干净: $str =~ s/[^w]//g;$str =~原创 2013-08-11 01:02:24 · 3088 阅读 · 0 评论 -
perl Summary
perl summary1. 脱引用(dereference)并不是只能用在引用上,返回引用的函数也能使用。如:sub foo { my $a = 10; return \$a; }print ${foo()}; # 返回10print “${foo()}”; # 甚至在字符串替换中也能用!2. 两个相邻的下标之间可以省去 -> 。如:print $sue{chil原创 2013-08-11 01:17:16 · 623 阅读 · 0 评论 -
my code using SQlite module with perl
1. Common ways which use SQlite#!/usr/ bin/perl -wuse warnings;use constant LIB_DIR =>'/home/xialeizhou/perl5/lib/perl5';use lib LIB_DIR;use DBI;#my $dbargs = { AutoCommit => 0, PrintError =>原创 2013-08-11 01:14:33 · 611 阅读 · 0 评论 -
perl+SQlite模块
在开发处理大量的数据,且数据随机性超强悍(比如网络数据)的系统时,我们总会面临对数据正性的验证的问题,尤其是当这些系统并非基于数据库、但又具有大量的条件查询的时候,我们常常需要要原始的数据进行统计,再通过与系统中的值进行比较,来难数据的正确性,但可条件的灵活,以至手工的计算是苦不堪言的,大家还是喜欢将数据导入到数据库系统中再用SQL语句来验证数据的正确性。下面这段代码是为了将几原创 2013-08-11 01:10:29 · 1037 阅读 · 0 评论