解决方案1.pt-osc工具1.1.pt-osc简介pt-osc是pt-online-schema-change的简写，pt-online-schema-change是percona-toolkit工具包中用于在线变更DDL的工具1.2.pt-osc原理1.3.pt-toolkit安装# yum install perl-ExtUtils-CBuilder perl-ExtUtils-MakeMa
原创
2023-10-18 20:20:12
0阅读
安装mysqlsla-2.03，执行Perl脚本报错Can’t locate ExtUtils/MakeMaker.pm in @INC解决如下# wget http://files.directadmin.com/services/9.0/ExtUtils-MakeMaker-6.31.tar.gz# tar xvzf ExtUtils-MakeMaker-6.31.tar.gz ...
原创
2021-08-10 09:57:10
522阅读
[root@test percona-toolkit-2.2.6]# perl Makefile.PL Can't locate ExtUtils/MakeMaker.pm in @INC (@INC contains: /usr/local/lib/perl5 /usr/local/share/perl5 /usr/lib/perl5/vendor_perl /usr/share/perl5/
原创
2021-08-26 14:46:21
230阅读
my @ss = ("a","b","c","d");print $ss[1] 显示为aprint @ss[1,3] 显示为a c@ss的标量为4if (@ss < 5){command}else{command}if($date == $today){command;}elseif($date == $christmas){command;}else{command;}prin
原创
2014-01-20 19:52:01
574阅读
一、system perl也可以用system调用shell的命令,它和awk的system一样,返回值也是它调用的命令的退出状态. [root@AX3sp2 ~]# cat aa.pl #! /usr/bin/perl -w $file = "wt.pl"; system("ls -l wt.pl ...
转载
2021-07-16 10:05:00
1214阅读
2评论
今天学习了perl的哈希 哈希符号%%#!/usr/bin/perl perl头，如果不能运行则需要换成 #!/usr/bin/perl -wmy %ss = ('a' => 1,'b' => 2,'c' => 3,'d' => 4); 哈希数a对应1、b对应2、c对应3、d对应4 也可写成my %ss = ('a',1,'b',2,'c',3,'d',4);
原创
2014-01-20 19:50:47
1008阅读
报错：Can’t locate ExtUtils/MakeMaker.pm in @INC解决方法：yum install perl-ExtUtils-CBuilder perl-ExtUtils-MakeMaker
原创
2015-07-13 17:32:37
893阅读
perl 编码风格：
1.K.R
2.GNU
3.BSD
采用K&R
转载
精选
2011-01-19 16:16:06
427阅读
x? 匹配 0 次或一次 x 字符串 /cg?i/ 找到 c 后面跟着 0个或是 1个 g ，再跟着 i 的字符串，如同/cg{0,1}i/ ...
转载
2017-01-10 17:33:00
694阅读
2评论
[oracle@jhoa 2]$ cat a2.pl foreach $key (keys %main::) {print "\$$key => $main::{$key}\n";}[oracle@jhoa 2]...
转载
2014-12-25 21:02:00
146阅读
2评论
1,一个相当常见的全局替换是缩减空白，也就是将任何连续的空白转换成单一空格：
s/\s+ //g;
2,将开头的空白替换成空字符串
s /^\s+//;
3,讲结尾的空白替换成空字符串
s /\s+$//
4,去除开头和结尾的空白符
s/^\s+|\s+$//g
原创
2013-02-20 16:00:07
592阅读
AAA
原创
2015-03-06 16:47:21
585阅读
如果对于一个绝大部分内容是静态的网站，只有极少数的地方需要动态显示，碰巧你又了解一点perl知识，那么nginx + perl的结合就能很好解决问题。要想nginx支持perl脚本，在编译nginx时候需要如下参数：./configure --with-http_perl_module如果make时候出现如下类似错误： Can’t locate ExtUtils/Embed.pm in @INC
$_ 俗称perl的老地方，当你的程序中未告知使用哪个参数或者变量时，perl就会自动使用$_中的值，比如for(1..10){
print ;
}这里print没有指定参数，所以它就会使用$_，那$_里面是什么呢？每次循环$_的值都会变化，所以$_实际上就是1 .. 10这10个值，所以上面的代码打印的结果就是12345678910$!当且仅当某个函数调用失败
转载
2023-06-08 17:02:54
76阅读
perl 常用法
常用正则表达式
匹配中文字符的正则表达式： [\u4e00-\u9fa5]
评注：匹配中文还真是个头疼的事，有了这个表达式就好办了
匹配双字节字符(包括汉字在内)：[^\x00-\xff]
评注：可以用来计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）
匹配空
过滤重复字符[plain] view plaincopy
1. perl -e '$_=<STDIN>; @in = split; if (@in < 100){ @out = grep {! $hash{$_}++ } @in; print join "\n", @out;}'
统计全文单词数 （同awk '{for (i=1;i<=NF;i++){a[$i]++
问题：具体的操作步骤，是windows环境下的，要求说明具体点，具体的操作步骤和运行命令?解答：首先确定你已经装好了PERL。Windows的话，应该是用Active PERL吧。其次，看你想怎么运行。如果你是用记事本或者UltraEdit 32这样的编辑器写的程序，应该需要在命令行运行。在Win XP下，从开始菜单选择运行，输入cmd，回车，进入命令行界面。然后更改目录到你要运行的程序所在的文件
转载
2023-07-03 16:02:20
124阅读
\s+(?\d+(?:\.\d+)?)\s+1、命名分组格式为(?)，反向引用时用/k2、命名分组的匹配的结果存在在变量%+变量中，取命名分组值，$+{grp name}.3、反向引用也可以用/g1,/g{1},...
转载
2017-01-10 20:28:00
253阅读
2评论
Another good feature of Perl is RE, PerlRE.
In Perl, RE usually means patten, a match (or unmatch) of some characters template.
The patten can divide any characters into two parts: match and unmatch
原创
2012-11-15 21:03:45
937阅读
从开始的BSP使用C语言，到后期人工智能使用Python，以及常用的shell工具，到现在使用了点perl，稍微总结一下，这几种语言的特点。如果，以后有一种自己不太用的到的，到某一次突然需要使用的时候，捡起来快一些。其实所有的程序需要完成的功能模块都比较相似：比如： 程序解析(用’;'分号还是语句的缩进关系)； 数据类型(整型、浮点型、字符/字符串及class等，数据声明使用及作用范围)； 文件处
