05 2016 档案
摘要：本节课大纲：一、ThinkPHP的介绍 //了解 MVC M - Model 模型 工作：负责数据的操作 V - View 视图（模板） 工作：负责前台页面显示 编写html代码 C - Controller 控制器（模...
阅读全文
摘要：本节课大纲：一、ThinkPHP的介绍 //了解 MVC M - Model 模型 工作：负责数据的操作 V - View 视图（模板） 工作：负责前台页面显示 编写html代码 C - Controller 控制器（模...
阅读全文
摘要：对象（下）:如果 @ISA 包含多于一个包的名字，包的搜索都是从左向右的顺序进行的。这些搜索是由浅入深的，因此，如果你有一个 Mule 类有象下面这样的继承关系：因为一个 BEGIN 块立即就执行了，所以它甚至可以在其他文件编译前把子过程声明， 定义以及输入等抓过来。这些动作可能改变编译器对当前...
阅读全文
摘要：[root@wx03 5]# cat a5.pl END {print cccccccccccc."\n"};print "aaaaaaaaaaaaa\n";BEGIN {print bbbbbbbbbbbbbb."\n"};[root@wx03 5]# perl a5.pl bbbbbbbbb...
阅读全文
摘要：[root@wx03 5]# cat a5.pl END {print cccccccccccc."\n"};print "aaaaaaaaaaaaa\n";BEGIN {print bbbbbbbbbbbbbb."\n"};[root@wx03 5]# perl a5.pl bbbbbbbbb...
阅读全文
摘要：对象（上）:对象是一个数据结构,带有一些行为。 如果需要区分上面两种情况， 那么我们就把适用于某一特定对象的方法叫做实例方法，而把那些适用于整个类的方法叫做类方法。不过这样做只是为了方便——对于 Perl而言，方法就是方法，只是由其第一个参数的类型来区分。类方法 第一个参数为类对象方法 第一...
阅读全文
摘要：activemq:redis01:/root# cp apache-activemq-5.13.2-bin.tar.gz /usr/local/安装目录:redis01:/usr/local/apache-activemq-5.13.2# pwd/usr/local/apache-activem...
阅读全文
摘要：activemq:redis01:/root# cp apache-activemq-5.13.2-bin.tar.gz /usr/local/安装目录:redis01:/usr/local/apache-activemq-5.13.2# pwd/usr/local/apache-activem...
阅读全文
摘要：11.1 使用模块:因为模块使用 Exporter 把符号输入到当前包里，所以你可以不加包限制词地使用来自该模块的符号：因为模块使用 Exporter 把符号输入到当前包里，所以你可以不加包限制词地使用来自该模块的符号：[root@wx03 5]# cat Fred.pm package Fr...
阅读全文
摘要：11.1 使用模块:因为模块使用 Exporter 把符号输入到当前包里，所以你可以不加包限制词地使用来自该模块的符号：因为模块使用 Exporter 把符号输入到当前包里，所以你可以不加包限制词地使用来自该模块的符号：[root@wx03 5]# cat Fred.pm package Fr...
阅读全文
摘要：Exporter - Implements default import method for modules 实现模块的默认导出方法:简介:[tomcat@wx03 ~]$ cat hui.pm package hui; require Exporter; @ISA = qw(Export...
阅读全文
摘要：Exporter - Implements default import method for modules 实现模块的默认导出方法:简介:[tomcat@wx03 ~]$ cat hui.pm package hui; require Exporter; @ISA = qw(Export...
阅读全文
摘要：use base qw(Exporter);@JSON::EXPORT = qw(from_json to_json jsonToObj objToJson encode_json decode_json);[root@wx03 5]# cat Fred.pm package Fred;use ...
阅读全文
摘要：use base qw(Exporter);@JSON::EXPORT = qw(from_json to_json jsonToObj objToJson encode_json decode_json);[root@wx03 5]# cat Fred.pm package Fred;use ...
阅读全文
摘要：29.2.32 eval• eval BLOCK• eval EXPR• evaleval 关键字在Perl 里起两种不同的但相关的作用。这些目的是用两种形式的语法来表现的， eval BLOCK 和eval EXPR。第一种形式捕获那些致命的运行时例外（错误），类似于C++ 或Java 里的“...
阅读全文
摘要：29.2.32 eval• eval BLOCK• eval EXPR• evaleval 关键字在Perl 里起两种不同的但相关的作用。这些目的是用两种形式的语法来表现的， eval BLOCK 和eval EXPR。第一种形式捕获那些致命的运行时例外（错误），类似于C++ 或Java 里的“...
阅读全文
摘要：jrhmpt01:/root/lwp/0526# cat a1.pl use LWP::UserAgent;use DBI; use POSIX;use Data::Dumper;use HTML::TreeBuilder;my $ua = LWP::UserAgent->new;$ua->...
阅读全文
摘要：jrhmpt01:/root/lwp/0526# cat a1.pl use LWP::UserAgent;use DBI; use POSIX;use Data::Dumper;use HTML::TreeBuilder;my $ua = LWP::UserAgent->new;$ua->...
阅读全文
摘要：[tomcat@wx02 test]$ pwd/home/tomcat/test[tomcat@wx02 test]$ cat Pkg1.pm package Pkg1;sub fun1 {print "aaaaaa\n";};1;[tomcat@wx02 test]$ cat Pkg2.pm ...
阅读全文
摘要：[tomcat@wx02 test]$ pwd/home/tomcat/test[tomcat@wx02 test]$ cat Pkg1.pm package Pkg1;sub fun1 {print "aaaaaa\n";};1;[tomcat@wx02 test]$ cat Pkg2.pm ...
阅读全文
摘要：mysql> select user,host,password_expired from mysql.user;+-----------------+----------------+------------------+| user | host ...
阅读全文
摘要：mysql> select user,host,password_expired from mysql.user;+-----------------+----------------+------------------+| user | host ...
阅读全文
摘要：[root@wx03 5]# cat test1.plsub fun1 { $var=100;# return $var;};$var=10;print "first..........\n";print "\$var is $var\n";print "second.............
阅读全文
摘要：[root@wx03 5]# cat test1.plsub fun1 { $var=100;# return $var;};$var=10;print "first..........\n";print "\$var is $var\n";print "second.............
阅读全文
摘要：创建和访问一个两维数组:# 给一个数组赋予一个数组引用列表。[root@wx03 4]# cat t1.pl @Aoa = (["fred", "barney" ],["george", "jane", "elroy" ],["homer", "marge", "bart" ],);print ...
阅读全文
摘要：创建和访问一个两维数组:# 给一个数组赋予一个数组引用列表。[root@wx03 4]# cat t1.pl @Aoa = (["fred", "barney" ],["george", "jane", "elroy" ],["homer", "marge", "bart" ],);print ...
阅读全文
摘要：mysql> select md5(concat((select md5("admin123") from test limit 1),'`xx')) from test;+-------------------------------------------------------------...
阅读全文
摘要：[root@wx03 test]# cat Horse.pm package Horse;##Horse继承了Critter类,Critter这里是基类或者父类use base qw(Critter);sub new {my $invocant = shift;my $class = ref($...
阅读全文
摘要：[root@wx03 test]# cat Horse.pm package Horse;##Horse继承了Critter类,Critter这里是基类或者父类use base qw(Critter);sub new {my $invocant = shift;my $class = ref($...
阅读全文
摘要：jrhmpt01:/root/lwp/0526# cat a2.pl use LWP::UserAgent;use DBI; use POSIX;use Data::Dumper;use HTML::TreeBuilder;my $ua = LWP::UserAgent->new;$ua->...
阅读全文
摘要：jrhmpt01:/root/lwp/0526# cat a2.pl use LWP::UserAgent;use DBI; use POSIX;use Data::Dumper;use HTML::TreeBuilder;my $ua = LWP::UserAgent->new;$ua->...
阅读全文
摘要：jrhmpt01:/root/lwp/0526# cat 0526.txt 天下金专区 投资期限自选可进行债权转让100元起投 每月还息，到期还本产品介绍>更多项目> 项目名称 ...
阅读全文
摘要：jrhmpt01:/root/lwp/0526# cat 0526.txt 天下金专区 投资期限自选可进行债权转让100元起投 每月还息，到期还本产品介绍>更多项目> 项目名称 ...
阅读全文
摘要：$subref=sub { my $a=shift; return $a; };print $subref->("xxyyzz");
阅读全文
摘要：$subref=sub { my $a=shift; return $a; };print $subref->("xxyyzz");
阅读全文
摘要：在 C 里，间接的最常见的形式就是指针，它可以让一个变量保存另外一个变量的内存地址。在 Perl 里，间接的最常见的形式是引用。举例来说，假如你创建了一个指向某个词法范围数组 @array 的硬引用。那么，即使在 @array 超出了范围之后，该引用以及它所引用的参考物也仍然继续存在。一个引用只...
阅读全文
摘要：在 C 里，间接的最常见的形式就是指针，它可以让一个变量保存另外一个变量的内存地址。在 Perl 里，间接的最常见的形式是引用。举例来说，假如你创建了一个指向某个词法范围数组 @array 的硬引用。那么，即使在 @array 超出了范围之后，该引用以及它所引用的参考物也仍然继续存在。一个引用只...
阅读全文
摘要：子过程:对于没有 NAME 的形式，你还必须提供调用子过程的方法．因此你必须保存返回值，因为这种形式的 sub 声明方法不但在编译的时候编译，同时也产生一个运行时的返回值，所以我们就可以保证保存它：可以用下面的方法引入在另一个模块中定义的子过程：use MODULE qw(NAME1 NAME2...
阅读全文
摘要：子过程:对于没有 NAME 的形式，你还必须提供调用子过程的方法．因此你必须保存返回值，因为这种形式的 sub 声明方法不但在编译的时候编译，同时也产生一个运行时的返回值，所以我们就可以保证保存它：可以用下面的方法引入在另一个模块中定义的子过程：use MODULE qw(NAME1 NAME2...
阅读全文
摘要：标量项:[root@wx03 2]# cat a1.pl unshift(@INC,"/root/big/2"); use Horse;;print $Horse::days;print "\n";[root@wx03 2]# cat Horse.pm package Horse;our $da...
阅读全文
摘要：标量项:[root@wx03 2]# cat a1.pl unshift(@INC,"/root/big/2"); use Horse;;print $Horse::days;print "\n";[root@wx03 2]# cat Horse.pm package Horse;our $da...
阅读全文
摘要：正确做法，利用db.changeUserPassword > db.changeUserPassword('tank2','test');
阅读全文
摘要：正确做法，利用db.changeUserPassword > db.changeUserPassword('tank2','test');
阅读全文
摘要：[root@wx03 1]# cat a1.pl $arr=[1,2,3,4,5,6];print $arr->[4]."\n";$hash={a=>1,b=>2,c=>3};print $hash->{b}."\n";$sub = sub {return "aaaaaaaaa\n"};prin...
阅读全文
摘要：[root@wx03 1]# cat a1.pl $arr=[1,2,3,4,5,6];print $arr->[4]."\n";$hash={a=>1,b=>2,c=>3};print $hash->{b}."\n";$sub = sub {return "aaaaaaaaa\n"};prin...
阅读全文
摘要：mongdb 上传图片:[root@hy-mrz01 ~]# mongofiles put -u "pics" -p "jh7yxx" --host 127.0.0.1 --port 27017 --db pics 1.jpg --type jpgconnected to: 127.0.0.1...
阅读全文
摘要：mongdb 上传图片:[root@hy-mrz01 ~]# mongofiles put -u "pics" -p "jh7yxx" --host 127.0.0.1 --port 27017 --db pics 1.jpg --type jpgconnected to: 127.0.0.1...
阅读全文
摘要：eval 表达式:eval 块:eval在第一种形式,通常称为一个字符串eval EXPR 返回值是被解析的和被执行的作为一个小小的Perl程序。表达式的值(是它本身决定的在标量上下文环境)是有限被解析,如果这里没有错误,作为一个block执行在当前Perl程序的词法上下文。这意味着,特别情况...
阅读全文
摘要：eval 表达式:eval 块:eval在第一种形式,通常称为一个字符串eval EXPR 返回值是被解析的和被执行的作为一个小小的Perl程序。表达式的值(是它本身决定的在标量上下文环境)是有限被解析,如果这里没有错误,作为一个block执行在当前Perl程序的词法上下文。这意味着,特别情况...
阅读全文
摘要：[root@wx03 test]# cat Critter.pm package Critter;#unshift(@INC,"/root/test"); #use message;sub new { my $self = {}; my $invocant = shift; m...
阅读全文
摘要：[root@wx03 test]# cat Critter.pm package Critter;#unshift(@INC,"/root/test"); #use message;sub new { my $self = {}; my $invocant = shift; m...
阅读全文
摘要：[root@wx03 lib]# ls -ltrtotal 40-rw-r--r-- 1 root root 2022 May 21 18:28 blogin.pm-rw-r--r-- 1 root root 1138 May 21 18:28 qrcode.pm-rw-r--r-- 1 roo...
阅读全文
摘要：[root@wx03 lib]# ls -ltrtotal 40-rw-r--r-- 1 root root 2022 May 21 18:28 blogin.pm-rw-r--r-- 1 root root 1138 May 21 18:28 qrcode.pm-rw-r--r-- 1 roo...
阅读全文
摘要：perl 类里的函数调用其他类的函数:package Horse;use base qw(Critter);sub new {my $invocant = shift;my $class = ref($invocant) || $invocant;my $self = {color => "ba...
阅读全文
摘要：perl 类里的函数调用其他类的函数:package Horse;use base qw(Critter);sub new {my $invocant = shift;my $class = ref($invocant) || $invocant;my $self = {color => "ba...
阅读全文
摘要：在计算机程序设计中，回调函数，或简称回调（Callback），是指通过函数参数传递到其它代码的，某一块可执行代码的引用。这一设计允许了底层代码调用在高层定义的子程序。没啥不好理解的呀，就是向函数的参数为 一个函数的引用呀。。[root@wx03 ~]# cat a2.pl use AE; ...
阅读全文
摘要：在计算机程序设计中，回调函数，或简称回调（Callback），是指通过函数参数传递到其它代码的，某一块可执行代码的引用。这一设计允许了底层代码调用在高层定义的子程序。没啥不好理解的呀，就是向函数的参数为 一个函数的引用呀。。[root@wx03 ~]# cat a2.pl use AE; ...
阅读全文
摘要：除非你定义子过程返回一个 左值，否则你你不能从子过程中返回一个可以修改的标量值：[root@wx03 test]# cat t20.pl my $val;sub canmod:lvalue {return $val;}sub nomod {$val;}canmod() = 5; # 给 $va...
阅读全文
摘要：除非你定义子过程返回一个 左值，否则你你不能从子过程中返回一个可以修改的标量值：[root@wx03 test]# cat t20.pl my $val;sub canmod:lvalue {return $val;}sub nomod {$val;}canmod() = 5; # 给 $va...
阅读全文
摘要：https://www.ibm.com/developerworks/cn/linux/l-cn-perlobj/Perl 面向对象编程的两种实现和比较:Perl 面向对象的实现有两种方式:1.基于匿名散列2.基于数组Perl 作为一种成熟的“面向过程”的语言，同样也提供了对于面向对象编程的支持...
阅读全文
摘要：https://www.ibm.com/developerworks/cn/linux/l-cn-perlobj/Perl 面向对象编程的两种实现和比较:Perl 面向对象的实现有两种方式:1.基于匿名散列2.基于数组Perl 作为一种成熟的“面向过程”的语言，同样也提供了对于面向对象编程的支持...
阅读全文
摘要：JSON:JSON-JSON (JavaScript 对象标记) 编码/解码简介: use JSON; # imports encode_json, decode_json, to_json and from_json.##简单和快速接口(期望/生产 UTF-8） $utf8_encoded_...
阅读全文
摘要：JSON:JSON-JSON (JavaScript 对象标记) 编码/解码简介: use JSON; # imports encode_json, decode_json, to_json and from_json.##简单和快速接口(期望/生产 UTF-8） $utf8_encoded_...
阅读全文
摘要：[root@dr-mysql01 ~]# cat a2.pl my $url="http://192.168.32.101:3000/api/getcode?env=zj&phone=18072722237";use LWP::UserAgent;use Encode; my $ua = LW...
阅读全文
摘要：[root@dr-mysql01 ~]# cat a2.pl my $url="http://192.168.32.101:3000/api/getcode?env=zj&phone=18072722237";use LWP::UserAgent;use Encode; my $ua = LW...
阅读全文
摘要：[root@dr-mysql01 ~]# cat a1.plmy $url="http://192.168.32.101:3000/api/getcode?env=zj&phone=180727xx237";use LWP::UserAgent;use Encode; my $ua = LWP...
阅读全文
摘要：[root@dr-mysql01 ~]# cat a1.plmy $url="http://192.168.32.101:3000/api/getcode?env=zj&phone=180727xx237";use LWP::UserAgent;use Encode; my $ua = LWP...
阅读全文
摘要：我不明白 use EXPORT和use EXPORT_OK的区别,大多数资料提到了一些:@Export 允许 导出模块的函数和变量到用户的名字空间使用标准的导入方法。这种方式,我们不需要创建模块的对象来访问它的成员。@EXPORT_OK 导出选择的模块的符号列表（子函数和变量)但是确实没有看到...
阅读全文
摘要：我不明白 use EXPORT和use EXPORT_OK的区别,大多数资料提到了一些:@Export 允许 导出模块的函数和变量到用户的名字空间使用标准的导入方法。这种方式,我们不需要创建模块的对象来访问它的成员。@EXPORT_OK 导出选择的模块的符号列表（子函数和变量)但是确实没有看到...
阅读全文
摘要：匿名函数引用:[root@wx03 wx]# perl a1.pl CODE(0x2077b30)test[root@wx03 wx]# cat a1.pl $ref= sub {return test."\n"};print $ref;print "\n";print &$ref;[root@...
阅读全文
摘要：匿名函数引用:[root@wx03 wx]# perl a1.pl CODE(0x2077b30)test[root@wx03 wx]# cat a1.pl $ref= sub {return test."\n"};print $ref;print "\n";print &$ref;[root@...
阅读全文
摘要：Perl does not provide any special syntax for class definitionsPerl 不提供任何特殊的语法对于类的定义A package is simply a namespace containing variables and subrouti...
阅读全文
摘要：Perl does not provide any special syntax for class definitionsPerl 不提供任何特殊的语法对于类的定义A package is simply a namespace containing variables and subrouti...
阅读全文
摘要：[root@wx03 test]# cat Horse.pm package Horse;use base qw(Critter);sub new {my $invocant = shift;my $class = ref($invocant) || $invocant;my $self = {...
阅读全文
摘要：[root@wx03 test]# cat Horse.pm package Horse;use base qw(Critter);sub new {my $invocant = shift;my $class = ref($invocant) || $invocant;my $self = {...
阅读全文
摘要：packge Mule;use base ("Horse", "donkey"); # 声明一个超类它是下面东西的缩写：package Mule;BEGIN {our @ISA = ("Horse", "Donkey");require Horse;require Donkey;}Horse 类...
阅读全文
摘要：packge Mule;use base ("Horse", "donkey"); # 声明一个超类它是下面东西的缩写：package Mule;BEGIN {our @ISA = ("Horse", "Donkey");require Horse;require Donkey;}Horse 类...
阅读全文
摘要：perl 为什么要用引用来做对象呢？因为一个重要的原因是 my 引用 脱离作用域,外部仍旧生效
阅读全文
摘要：12.5.3 UNIVERSAL：最终的祖先类:你可以把 UNIVERSAL 看作最终的祖先，所 有类都隐含地从它衍生而来。INVOCANT->isa(CLASS)如果 INVOCANT 的类是 CLASS 或者任何从 CLASS 继承来的，isa 方法返回真。 除了包名字以外，CLASS还可以...
阅读全文
摘要：12.5.3 UNIVERSAL：最终的祖先类:你可以把 UNIVERSAL 看作最终的祖先，所 有类都隐含地从它衍生而来。INVOCANT->isa(CLASS)如果 INVOCANT 的类是 CLASS 或者任何从 CLASS 继承来的，isa 方法返回真。 除了包名字以外，CLASS还可以...
阅读全文
摘要：有时候，你希望一个衍生类的方法表现得象基类中的某些方法的封装器这就是 SUPER 伪类提供便利的地方。它令你能够调用一个覆盖了的基类方法，而不用声明 是哪个类定义了该方法。（注：不要把这个和第十一章的覆盖 Perl 的内建函数的机制混淆 了，那个不是对象方法并且不会被继承覆盖。你调用内建函数的覆...
阅读全文
摘要：12.5.2 访问被覆盖的方法:当一个类定义一个方法，那么该子过程覆盖任意基类中同名的方法。[root@wx03 test]# cat Horse.pm package Horse;our @ISA = "Critter";sub new {my $invocant = shift;my $cl...
阅读全文
摘要：12.5.2 访问被覆盖的方法:当一个类定义一个方法，那么该子过程覆盖任意基类中同名的方法。[root@wx03 test]# cat Horse.pm package Horse;our @ISA = "Critter";sub new {my $invocant = shift;my $cl...
阅读全文
摘要：[root@wx03 test]# cat Horse.pm Horse 类:package Horse;#our @ISA = "Critter";sub new {my $invocant = shift;my $class = ref($invocant) || $invocant;my ...
阅读全文
摘要：[root@wx03 test]# cat Horse.pm Horse 类:package Horse;#our @ISA = "Critter";sub new {my $invocant = shift;my $class = ref($invocant) || $invocant;my ...
阅读全文
摘要：12.5 类继承对Perl的对象剩下的内容而言,从一个类继承另外一个类并不需要给这门语法增加特殊的语法,当你调用一个方法的时候,如果Perl在调用者的包里找不到这个字过程,那么他就检查@ISA数组perl是这样实现继承的,一个包@ISA数组了的每个元素都保持另外一个包的名字当缺失方法的时候就搜索...
阅读全文
摘要：12.5 类继承对Perl的对象剩下的内容而言,从一个类继承另外一个类并不需要给这门语法增加特殊的语法,当你调用一个方法的时候,如果Perl在调用者的包里找不到这个字过程,那么他就检查@ISA数组perl是这样实现继承的,一个包@ISA数组了的每个元素都保持另外一个包的名字当缺失方法的时候就搜索...
阅读全文
摘要：第十二章对象(上):$ed=x1->new('lily','29') 当Perl 看到$ed->sum_var(99,5); 时,它会决定$ed属于哪个类(也就是在其中执行bless的） 在这里,它是x1. Perl于是就会如下所示调用这个函数 x1::sum_var($...
阅读全文
摘要：第十二章对象(上):$ed=x1->new('lily','29') 当Perl 看到$ed->sum_var(99,5); 时,它会决定$ed属于哪个类(也就是在其中执行bless的） 在这里,它是x1. Perl于是就会如下所示调用这个函数 x1::sum_var($...
阅读全文
摘要：11.1 使用模块模块有两种风格：传统的和面向对象的。传统模块为调用者的输入和使用定义了子过程和 变量。面向对象的模块的运转类似类声明并且是通过方法调用来访问的，在第十二章， 对象，里描述。有些模块有上面两种类型的东西。因此 如果你的模块的名字是 Red::Blue::Green，Perl 就会...
阅读全文
摘要：11.1 使用模块模块有两种风格：传统的和面向对象的。传统模块为调用者的输入和使用定义了子过程和 变量。面向对象的模块的运转类似类声明并且是通过方法调用来访问的，在第十二章， 对象，里描述。有些模块有上面两种类型的东西。因此 如果你的模块的名字是 Red::Blue::Green，Perl 就会...
阅读全文
摘要：第十章包:在 Perl 里，一个名字空间叫一个包。包提供了基本的制作块，在它上面 构造更高级的概念，比如模块和类等。在 OO 的说法中，每个对象都属于一个叫做类的组典型的类是用一个 定义了与该类同名的包名字的模块实现的在 Perl 里的面向对象的编程是通过引用来 实现的，这些引用的引用物知道它们...
阅读全文
摘要：第十章包:在 Perl 里，一个名字空间叫一个包。包提供了基本的制作块，在它上面 构造更高级的概念，比如模块和类等。在 OO 的说法中，每个对象都属于一个叫做类的组典型的类是用一个 定义了与该类同名的包名字的模块实现的在 Perl 里的面向对象的编程是通过引用来 实现的，这些引用的引用物知道它们...
阅读全文
摘要：9.1.1 创建和访问一个两维数组[root@wx03 4]# cat a1.pl @Aoa = (["fred", "barney" ],["george", "jane", "elroy" ],["homer", "marge", "bart" ],);print $Aoa[0]->[1];...
阅读全文
摘要：9.1.1 创建和访问一个两维数组[root@wx03 4]# cat a1.pl @Aoa = (["fred", "barney" ],["george", "jane", "elroy" ],["homer", "marge", "bart" ],);print $Aoa[0]->[1];...
阅读全文
摘要：第八章，引用:[root@wx03 2]# cat a7.pl @john = (47, "brown", 186);@mary = (23, "hazel", 128);@bill = (35, "blue", 157);@vitals = ('john', 'mary', 'bill');p...
阅读全文
摘要：第八章，引用:[root@wx03 2]# cat a7.pl @john = (47, "brown", 186);@mary = (23, "hazel", 128);@bill = (35, "blue", 157);@vitals = ('john', 'mary', 'bill');p...
阅读全文
摘要：第六章 子过程:声明一个命名子过程，但不定义它，使用下面的形式：sub NAMEsub NAME PROTOsub NAME ATTRSsub NAME PROTO ATTRS声明并且定义一个命名子过程，加上一个 BLOCK：sub NAME BLOCKsub NAME PROTO BLOCKs...
阅读全文
摘要：第六章 子过程:声明一个命名子过程，但不定义它，使用下面的形式：sub NAMEsub NAME PROTOsub NAME ATTRSsub NAME PROTO ATTRS声明并且定义一个命名子过程，加上一个 BLOCK：sub NAME BLOCKsub NAME PROTO BLOCKs...
阅读全文
摘要：@home = ("couch", "chair", "table", "stove"); 数组数组．一个数组是多个标量的有序列表因为数组是有序的，所以你可以在它上面做很多很有用操作．例如堆栈操作 push 和 pop散列，散列是一组无序标量%longday = ("Sun" => "Sund...
阅读全文
摘要：@home = ("couch", "chair", "table", "stove"); 数组数组．一个数组是多个标量的有序列表因为数组是有序的，所以你可以在它上面做很多很有用操作．例如堆栈操作 push 和 pop散列，散列是一组无序标量%longday = ("Sun" => "Sund...
阅读全文
摘要：样式表三种使用方式和盒子模型css 的三种使用方式；行内样式表内部样式表外部引入样式表盒子模型行内样式表时指将CSS样式编码写在HTML标签中,格式如下:我的CSS样式内部样式表与行内样式表相似都是把CSS代码写在HTML页面中,不同的是前者可以将样式表放在一个固定的位置,一般放置在标签内部,格...
阅读全文
摘要：Css 简洁css 选择器标签选择器类选择器ID选择器Css 层叠样式表 Cascade Stytle Sheetcss 就像网页的化妆品,让你可以随意的把相同的内容转换成不一样的外观,把就是给相似的结构以不同的样式。css+div 是当前最流行的前台美工技术,也是web标准推荐的。使用样式...
阅读全文
摘要：Css 简洁css 选择器标签选择器类选择器ID选择器Css 层叠样式表 Cascade Stytle Sheetcss 就像网页的化妆品,让你可以随意的把相同的内容转换成不一样的外观,把就是给相似的结构以不同的样式。css+div 是当前最流行的前台美工技术,也是web标准推荐的。使用样式...
阅读全文
摘要：1、XXX.pm 文件里面的第一行要是：package XXX；2、要有构造函数 sub new，实现如下：sub new { my $class = shift; # Get the request class name my $self = {}; my ($name)=@_;...
阅读全文
摘要：-bash-4.1# cat /etc/haproxy/haproxy.cfgglobal log 127.0.0.1 local3 maxconn 65535 chroot /usr/local/haproxy uid 500 ...
阅读全文
摘要：-bash-4.1# cat /etc/haproxy/haproxy.cfgglobal log 127.0.0.1 local3 maxconn 65535 chroot /usr/local/haproxy uid 500 ...
阅读全文
摘要：Java代码 java.sql.SQLException: Incorrect string value: '\xF0\x9F\x92\x94' for column 'name' at row 1 at com.mysql.jdbc.SQLError.createSQLExcept...
阅读全文
摘要：Java代码 java.sql.SQLException: Incorrect string value: '\xF0\x9F\x92\x94' for column 'name' at row 1 at com.mysql.jdbc.SQLError.createSQLExcept...
阅读全文
摘要：Document Document 中均运维管理平台 用户名:密码: 验证码: submit 登录:http://localhost/thinkphp/myhome/loginok.html?userna...
阅读全文
摘要：Document Document 中均运维管理平台 用户名:密码: 验证码: submit 登录:http://localhost/thinkphp/myhome/loginok.html?userna...
阅读全文
摘要：ACL derivatives :ACL的衍生物hdr([[,]]) : exact string match 字符串精确匹配hdr_beg([[,]]) : prefix match 前缀匹配hdr_dir([[,]]) : subdir matchhdr_...
阅读全文
摘要：ACL derivatives :ACL的衍生物hdr([[,]]) : exact string match 字符串精确匹配hdr_beg([[,]]) : prefix match 前缀匹配hdr_dir([[,]]) : subdir matchhdr_...
阅读全文
摘要：path_beg : prefix match 前缀匹配path_dir : subdir matchpath_dom : domain matchpath_end : suffix match 后缀匹配path : string This extracts the request's U...
阅读全文
摘要：path_beg : prefix match 前缀匹配path_dir : subdir matchpath_dom : domain matchpath_end : suffix match 后缀匹配path : string This extracts the request's U...
阅读全文
摘要：http://www.xx.com/admin/api/menu[root@wx03 mojo]# cat test.pl use Mojolicious::Lite;use JSON qw/encode_json decode_json/; use Encode;no strict;use ...
阅读全文
摘要：http://www.xx.com/admin/api/menu[root@wx03 mojo]# cat test.pl use Mojolicious::Lite;use JSON qw/encode_json decode_json/; use Encode;no strict;use ...
阅读全文
摘要：api 配置:haproxy 跳转: acl api_req path_beg -i /api use_backend appserver_8082...
阅读全文
摘要：api 配置:haproxy 跳转: acl api_req path_beg -i /api use_backend appserver_8082...
阅读全文
摘要：perl 中的对象 就是引用 通过new方法传递数据结构给各个模块[root@wx03 test]# cat x1.pm package x1; use Data::Dumper; sub new { my $self ={};my $invocant = shift; my $clas...
阅读全文
摘要：perl 中的对象 就是引用 通过new方法传递数据结构给各个模块[root@wx03 test]# cat x1.pm package x1; use Data::Dumper; sub new { my $self ={};my $invocant = shift; my $clas...
阅读全文
摘要：监控大批量的插入,修改和删除:mysql> insert into aaa select * from aaa;mysql> SELECT trx_id, trx_state, trx_started, trx_wait_started, trx_wei...
阅读全文
摘要：监控大批量的插入,修改和删除:mysql> insert into aaa select * from aaa;mysql> SELECT trx_id, trx_state, trx_started, trx_wait_started, trx_wei...
阅读全文
摘要：表级锁：分为读锁和写锁:lock tables table_name read;//其他事务只能读，不能加写锁，要等待更新。 SESSION 50 执行:mysql> update test set name='ccc' where id=1; mysql> show fu...
阅读全文
摘要：表级锁：分为读锁和写锁:lock tables table_name read;//其他事务只能读，不能加写锁，要等待更新。 SESSION 50 执行:mysql> update test set name='ccc' where id=1; mysql> show fu...
阅读全文
摘要：mysql 锁表:隔离级别使用RR:mysql> SELECT @@GLOBAL.tx_isolation, @@tx_isolation;+-----------------------+-----------------+| @@GLOBAL.tx_isolation | @@tx_isol...
阅读全文
摘要：mysql 锁表:隔离级别使用RR:mysql> SELECT @@GLOBAL.tx_isolation, @@tx_isolation;+-----------------------+-----------------+| @@GLOBAL.tx_isolation | @@tx_isol...
阅读全文
摘要：块级标签和行级标签块级标签 div标签行级标签 span标签块级 标签 :会占据一行,会换行 段落标签 行级标签:在一行显示,没有换行 块级标签标签:跑马灯标签:behavoir:alternate|scroldirection:up|down|left|rightscrolld...
阅读全文
摘要：块级标签和行级标签块级标签 div标签行级标签 span标签块级 标签 :会占据一行,会换行 段落标签 行级标签:在一行显示,没有换行 块级标签标签:跑马灯标签:behavoir:alternate|scroldirection:up|down|left|rightscrolld...
阅读全文
摘要：name 表单名字 action 处理表单的程序 Method 提交表单的方式 Document 用户注册 用户名: 密码: ...
阅读全文
摘要：name 表单名字 action 处理表单的程序 Method 提交表单的方式 Document 用户注册 用户名: 密码: ...
阅读全文
摘要：表格标签 //表格标签: //行标签 //单元格http://120.x5.x.x:8080/myhome/mytable.html表格跨行或者跨列的效果:跨行: 北京 上海--> 跨列: 广州-->深圳 Document ...
阅读全文
摘要：表格标签 //表格标签: //行标签 //单元格http://120.x5.x.x:8080/myhome/mytable.html表格跨行或者跨列的效果:跨行: 北京 上海--> 跨列: 广州-->深圳 Document ...
阅读全文
摘要：本节课大纲：一、多应用配置技巧二、使用分组三、页面跳转 $this->success('查询成功',U('User/test')); $this->redirect('User/test','',5,'页面正在跳');四、Ajax技巧前后台公用公共配置文件:$ pwd/cygdrive/c/wa...
阅读全文
摘要：本节课大纲：一、多应用配置技巧二、使用分组三、页面跳转 $this->success('查询成功',U('User/test')); $this->redirect('User/test','',5,'页面正在跳');四、Ajax技巧前后台公用公共配置文件:$ pwd/cygdrive/c/wa...
阅读全文
摘要：HTML基本标签；http://120.x5.xx8.6:8080/awp/ --页面头部 Document --页面标题 ---居中 欢迎访问我的主页 --页面正文 HTML 注释 我的第...
阅读全文
摘要：HTML基本标签；http://120.x5.xx8.6:8080/awp/ --页面头部 Document --页面标题 ---居中 欢迎访问我的主页 --页面正文 HTML 注释 我的第...
阅读全文
摘要：dr-mysql01:/root# cat a1.sh#用户名uname="$1"#密码passwd="$2"#执行检测并安装expect模块ep=`rpm -qa | grep expect` if [ -z $ep ] ; then echo "检测到你的系统，没有安装expect模块，...
阅读全文
摘要：dr-mysql01:/root# cat a1.sh#用户名uname="$1"#密码passwd="$2"#执行检测并安装expect模块ep=`rpm -qa | grep expect` if [ -z $ep ] ; then echo "检测到你的系统，没有安装expect模块，...
阅读全文
摘要：[root@dr-mysql01 mojo]# cat a1.pl use Net::OpenSSH;my $host = '121.4xx.xx1.41';my $user = 'root';my $key = '/root/.ssh/id_rsa';my %param = ( ...
阅读全文
摘要：[root@dr-mysql01 mojo]# cat a1.pl use Net::OpenSSH;my $host = '121.4xx.xx1.41';my $user = 'root';my $key = '/root/.ssh/id_rsa';my %param = ( ...
阅读全文
摘要：use Net::OpenSSH;my $host = "$ip";my $user = 'root';my $passphrase = 'uxxxxxD';my $key = '/root/.ssh/id_rsa';my $cmd="sh $script";my %param = ( ...
阅读全文
摘要：use Net::OpenSSH;my $host = "$ip";my $user = 'root';my $passphrase = 'uxxxxxD';my $key = '/root/.ssh/id_rsa';my $cmd="sh $script";my %param = ( ...
阅读全文
摘要：if [ ! $# -eq 2 ] ;thenecho "请输入用户密码以空格分开"exitelsessh-keygen -t rsa#用户名uname="$1"#密码passwd="$2"fi#执行检测并安装expect模块ep=`rpm -qa | grep expect` if [ -...
阅读全文
摘要：if [ ! $# -eq 2 ] ;thenecho "请输入用户密码以空格分开"exitelsessh-keygen -t rsa#用户名uname="$1"#密码passwd="$2"fi#执行检测并安装expect模块ep=`rpm -qa | grep expect` if [ -...
阅读全文
Corrupted MAC on input at /usr/local/perl/lib/site_perl/5.22.1/x86_64-linux/Net/SSH/Perl/Packet.pm l
摘要：[Thu May 5 11:02:27 2016] [error] Corrupted MAC on input at /usr/local/perl/lib/site_perl/5.22.1/x86_64-linux/Net/SSH/Perl/Packet.pm line 229.这个模块偶...
阅读全文
Corrupted MAC on input at /usr/local/perl/lib/site_perl/5.22.1/x86_64-linux/Net/SSH/Perl/Packet.pm l
摘要：[Thu May 5 11:02:27 2016] [error] Corrupted MAC on input at /usr/local/perl/lib/site_perl/5.22.1/x86_64-linux/Net/SSH/Perl/Packet.pm line 229.这个模块偶...
阅读全文
摘要：get '/api/auto_publish/publish' => sub{ my $c = shift; my $env = $c->param('env'); my $app = $c->param('app'); my $ip = $c->param('ip'); my $stderr...
阅读全文
摘要：get '/api/auto_publish/publish' => sub{ my $c = shift; my $env = $c->param('env'); my $app = $c->param('app'); my $ip = $c->param('ip'); my $stderr...
阅读全文
摘要：这种情况不断的网数组@arr2里放入数据,返回的内容为:这种情况是一维数组:while( $selStmt->fetch() ){print "\$a1 is $a1\n";print "\$a2 is $a2\n";print "\$a3 is $a3\n";push (@arr2, "$a1...
阅读全文
摘要：这种情况不断的网数组@arr2里放入数据,返回的内容为:这种情况是一维数组:while( $selStmt->fetch() ){print "\$a1 is $a1\n";print "\$a2 is $a2\n";print "\$a3 is $a3\n";push (@arr2, "$a1...
阅读全文
摘要：Net::SSH::Perl - Perl client Interface to SSH Perl SSH的客户端接口 use Net::SSH::Perl; my $ssh = Net::SSH::Perl->new($host); $ssh->login($user, ...
阅读全文
摘要：Net::SSH::Perl - Perl client Interface to SSH Perl SSH的客户端接口 use Net::SSH::Perl; my $ssh = Net::SSH::Perl->new($host); $ssh->login($user, ...
阅读全文
摘要：http://192.168.32.101:3000/api/zabbix/add_Host?env=test&host=zjtest9-app&ip=192.168.32.250&groupid=11&templateid=10001 my $c = shift; my $env = $c->...
阅读全文
摘要：http://192.168.32.101:3000/api/zabbix/add_Host?env=test&host=zjtest9-app&ip=192.168.32.250&groupid=11&templateid=10001 my $c = shift; my $env = $c->...
阅读全文
摘要：zabbix 成功添加后:$VAR1 = bless( { 'version' => 0, 'content' => { 'jsonrpc' => '2.0', ...
阅读全文
摘要：zabbix 成功添加后:$VAR1 = bless( { 'version' => 0, 'content' => { 'jsonrpc' => '2.0', ...
阅读全文
摘要：my $c = shift;use DBI;my %hash=(); my $dbUser='zabbix'; my $user="root"; my $passwd="1234567"; my $dbh = DBI->connect("dbi:mysql:database=$dbU...
阅读全文
摘要：my $c = shift;use DBI;my %hash=(); my $dbUser='zabbix'; my $user="root"; my $passwd="1234567"; my $dbh = DBI->connect("dbi:mysql:database=$dbU...
阅读全文
摘要：[root@dr-mysql01 sbin]# cat t1.pl use DBI;my $dbUser='DEVOPS'; my $user="root"; my $passwd="1234567"; $gp=$ARGV[0];my @arr2=""; my $dbh = DBI->c...
阅读全文
摘要：[root@dr-mysql01 sbin]# cat t1.pl use DBI;my $dbUser='DEVOPS'; my $user="root"; my $passwd="1234567"; $gp=$ARGV[0];my @arr2=""; my $dbh = DBI->c...
阅读全文
摘要：mysql 手动安装DBI 和DBD:DBI版本:[root@dr-mysql01 DBD-mysql-4.033]# perl -MDBI -le 'print $DBI::VERSION;'1.616DBD 版本使用:DBD-mysql-4.033.tar.gzperl 5.22 版本需要...
阅读全文
摘要：mysql 手动安装DBI 和DBD:DBI版本:[root@dr-mysql01 DBD-mysql-4.033]# perl -MDBI -le 'print $DBI::VERSION;'1.616DBD 版本使用:DBD-mysql-4.033.tar.gzperl 5.22 版本需要...
阅读全文
摘要：my $endtime=strftime("%Y%m%d%H%M%S",localtime()); my $d=encode_utf8('验证'); if ($a3 =~/$d/){ #$msg->reply("\@$friend $a1-$a3-$a4"); $a3=decode_ut...
阅读全文
摘要：my $endtime=strftime("%Y%m%d%H%M%S",localtime()); my $d=encode_utf8('验证'); if ($a3 =~/$d/){ #$msg->reply("\@$friend $a1-$a3-$a4"); $a3=decode_ut...
阅读全文
摘要：jrhapt12:/home/tomcat> cat a1.pluse Encode;$phone='18072722237';open (LOG1 ,") { #2016-03-09 09:35:12,380 INFO com.zjzc.thirdparty.sms.SMSUtils ...
阅读全文
摘要：jrhapt12:/home/tomcat> cat a1.pluse Encode;$phone='18072722237';open (LOG1 ,") { #2016-03-09 09:35:12,380 INFO com.zjzc.thirdparty.sms.SMSUtils ...
阅读全文