perl
青水
高级程序员,系统分析师
展开
-
perl 中的 ".."
“..” 符号常用于定义数据范围,如 @arr=(1..100). 今天见到一种特别的用法——用在正则式中:例:while({print if (/aaaaa/ .. /bbbbb/);}此语句可以检索出文件中,所有行中有aaaaa 和 bbbbb 的串的之间的行。如有文件如下:bbaaaaaaaaaaacc-------------------------原创 2013-12-13 23:20:42 · 712 阅读 · 0 评论 -
WIN7 + VC6.0 编译安装openssh
1、安装perl 环境 strawberry-perl-5.18.12、安装VC++6.0 开发环境,配置环境变量,使在cmd中可以访问 nmake,cl,link 工具3、解压 openssl-1.0.2n.tar.gz 到 E:\openssl-1.0.2n4、打开一个cmd命令窗口5、cd /d E:\openssl-1.0.2n6、perl configure VC-W原创 2018-02-03 22:54:48 · 458 阅读 · 0 评论 -
perl s表达式r选项
#! perl$x = "I like dogs # dogs";$y = $x =~ s/dogs/cats/g; #没有/r选项,直接修改了$x的字符串为"I like dogs",$y为$x =~ s/dogs/cats/的替换的个数,这里为2print $x,"\n";print $y,"\n";$x = "I like dogs # dogs";$原创 2014-09-02 21:19:47 · 862 阅读 · 0 评论 -
perl hash 和 map 新理解
hash 的操作:一次修改多个元素:@ss = (1..10); #定义列表@ss{@ss}= map {$_*2} @ss; #定义hash,并赋值@ss{2,5,8,10} = qw(it is a test);#多个hash元素赋值操作map操作:之前一直以为map一次只能返回一个值,其实map也可以返回多个元素.@ss = map {$_*2,$_*2+原创 2014-08-16 23:58:01 · 837 阅读 · 0 评论 -
perl正则命名分组捕获
命名例:local $_ ='Buster and buster';if(/(?\S+) (and|or) \k/i){print "I found the same name twice:$+{key}\n";print "\$2=$2\n";}else{print "not matched\n";}local $_ ='Buster原创 2014-09-20 17:13:52 · 2524 阅读 · 0 评论 -
perl 正则式 关于分组匹配的4个测试
#! perl#非捕获分组$str = 'wang haojie aab haojie ccdaabe' . 'goo';print "str=#$str#\n";if($str =~ /(?:ng\s+)(haojie\s+)aab\s\1/){print 'matched'."\n";print "#$1#","\n";print '$`=',$`,"\原创 2014-06-15 22:32:53 · 677 阅读 · 0 评论 -
perl __DATA__ __END__
#! perluse warnings;use strict;my @ss = ;#读取下面__END__或是__DATA__之下的文本for(@ss){print "LINE:$_\n";}close DATA;#__END__ #注意这里只需要由__END__或是__DATA__一个就可以了。__DATA_原创 2014-07-02 23:37:48 · 1201 阅读 · 0 评论 -
PERL 语言中的q,qw,qr,qx,qq
在perl语言中,有两个特殊而常用的符号qq qw,分别解释如下:qq{foobar}的意思为意思为双引号字符串,可内插变量相当于 "foobar"qw{foo bar}的意思为用空格分解字符串,得到列表,相当于如下语句split(' ','foo bar') 得到的结果是'foo','bar'字符串比较等于用 eqq运算符对'号转义的方式$somewo转载 2014-05-04 22:30:05 · 1239 阅读 · 0 评论 -
perl 脚本解析sqlserver导出的sql语句为C#所用
1、处理sqlserver导出的查询。例:导出的sql 为:SELECT [LogEntryId] ,[InstanceName] ,[ReportID] ,[UserName] ,[ExecutionId] ,[RequestType] ,[Format] ,[Parameters]原创 2014-03-29 15:30:03 · 838 阅读 · 0 评论 -
CMDHelper.pm
use strict;use warnings;push @INC,substr($0,0,rindex($0,"\\"));require "Log.pm";package CMDHelper;sub ExecuteCmdOrder{my $cmdOrder = shift;Log::DEBUG("CMDORDER: $cmdOrder\n原创 2014-03-07 00:38:39 · 711 阅读 · 0 评论 -
Log.pm
#!perl#日志打印use warnings;use strict;package Log;our $DEBUG = 1;sub DEBUG{if($DEBUG){my $msg = shift;print "DEBUG: $msg";}}#错误信息sub ERROR{my $msg = shif原创 2014-03-07 00:37:15 · 523 阅读 · 0 评论 -
DicParams.pm
#!perl#参数字典use warnings;use strict;package DicParams;sub new{my($this,@argv) = @_;my %this =();foreach(@argv){#my($val_name,$val_value) = split /=/; #对参数中有=的情况解析出错m原创 2014-03-07 00:36:24 · 464 阅读 · 0 评论