2015年12月_scan724

原创第<3>章 Typeglob和符号表

perl 变量,符号表和作用域:Perl 有一个在其他语言中一般见不到的奇怪恶性,你可以使用同样的名字来标识数据或非数据类型。例如,标量变量$spud,数组@spud,散列表%spud,子例程&spudPerl 使用符号表来把标示符名(就是去掉前缀的"spud"字符串)映射到相应的值。Typeglob 是一种可以在脚本程序中使用的真实的数据类型,它拥有前缀"*",尽管你

2015-12-31 15:30:36 459

原创第<2>章实现复杂的数据结构

用户定义数据结构:perl 中不存在这种内建的模板功能,一种常用的方式就是使用散列表来仿真结构类型,如图2-1所示:例子 :矩阵:在我们讨论这个例子之前,你必须知道如果你需要的是一个好的,高效的矩阵实现的话,就应该查看一下CPAN中的PDL模块在Perl中使用数组的数组是最为直观的一种矩阵表达方式,因为Perl不直接支持二维数组:zjzc01:/root/hei# cat a1

2015-12-31 14:07:18 366

原创第<1>章数据引用与匿名存储

主要有两方面的不同将用语创建真正复杂系统的编程语言,与普通的教学语言区分开来。那些更加健壮的编程语言具有以下特点:1. 不必使用变量名就能动态地位数据分配存储空间,我们称之为匿名数据结构2.可以指向任何数据结构,无论它是静态分配还是动态分配的指针,简言之,就是保存其他数据地址的变量。这个地址可以是机器地址,在C语言中就是这样,也可以是一种更高抽象层次的实体,比如名字或数组偏移量

2015-12-31 11:05:18 586

原创 perl lwp 响应信息

[root@dr-mysql01 ~]# cat hcp.pl use LWP::UserAgent; $ua = LWP::UserAgent->new; @header = ( 'accept'=> "application/json", 'content-type'=> "application/json", 'apix-key'=> "e7b00871640c

2015-12-30 19:24:10 709

原创 perl 批量添加zabbix

[root@dr-mysql01 ~]# cat zabbix.pl #!/usr/bin/perluse JSON::RPC::Client;use Data::Dumper;# Authenticate yourselfmy $client = new JSON::RPC::Client;my $url = 'http://192.168.32.83/zabbix/api_json

2015-12-29 16:19:32 803

原创 perl 获取post响应信息

[root@dr-mysql01 ~]# cat zabbix.pl use LWP::UserAgent;use HTTP::Date qw(time2iso str2time time2iso time2isoz);use Net::Ping; use Socket;use Net::SMTP;use LWP;use LWP::Simple;use LWP::UserAge

2015-12-29 15:22:47 1364

原创 perl 从指定行插入字符

zjzc01:/root/big2# cat a27.pl $curip="$ARGV[0]";$str='export CATALINA_OPTS="$CATALINA_OPTS -Djava.rmi.server.hostname=$curip -Dcom.sun.management.jmxremote -Dcom.sun.management.jmxremote.port=10053

2015-12-29 11:01:30 2257

原创 mysql group 陷阱

mysql> SELECT -> sn,Clientsn,createdtime -> FROM -> ClientCashDetail -> WHERE -> createdTime < '2015-12-25 00:00:00' ->

2015-12-28 19:24:50 442

原创第十二章对象（上）

第十二章对象（上）对象是一个数据结构,带有一些行为。我们通常把这些行为成为对对象的直接动作,有时候可以把这些对象拟人化。作为一个类的实例,对象从中获益,取得起行为。类定义方法:就是那些应用于类和其它的事例的性质。如果需要区分上面两种情况,那么我们就把适用于某一特定对象的方法叫做实例方法,而把那些适用于整个类的方法叫做类方法。12.2 Perl的对象系统:Perl

2015-12-28 16:55:21 113

原创 Windows perl dbi oracle环境配置

C:\Users\Administrator\Desktop\perl 大骆驼\画图>set | findstr OracleLD_LIBRARY_PATH=C:\Perl\lib\auto\DBD\OraclePath=C:\app\Administrator\product\11.2.0\client_1\bin;E:\instantclient-basic-nt-11.2.0.4.0\

2015-12-25 16:22:04 1110

原创第八章引用:

第八章引用:在C里,间接的最常见的形式就是指针,它可以让一个变量保存另外一个变量的内存地址。在Perl里,间接的最常见的形式是引用@vitals = ('john', 'mary', 'bill');一个引用可以指向任何数据结构。因为引用是标量,所以你可以把它们保存在数组的散列里,因此我们就可以做出数组的数组,散列的数组,数组的散列8.2.1 反斜杠操作符:

2015-12-25 11:24:07 116

原创 bless 概念

bless 以一个普通的指向数据结构的引用参数。它将会把那个数据结构(注意,不是引用本身)标记为属于某个特定的包,于是这样就赋予了它更强大的功能。

2015-12-25 10:21:29 524

原创 mysql kill thread

jrhdpt02:/root# mysql -uroot -p'x' -e "show processlist" | grep query | grep localWarning: Using a password on the command line interface can be insecure.177550 query_all localhost NULL Sleep 55 NU

2015-12-23 21:57:37 648

原创第6章子函数

第六章子过程:1.0 语法:声明一个命名子过程,但不定义它,使用下面的形式；sub NAMEsub NAME PROTO声明并且定义一个命名子过程,加上一个BLOCKsub NAME BLOCK创建一个匿名子过程或子句,把NAME去掉就可以对于没有NAME 的形式,你还必须提供调用子过程的方法,因此你必须保存返回值,因为这种形式的sub声明方法不

2015-12-23 16:38:13 362

原创 mysql 排序 /tmp被撑爆

我:SELECT ai.`code`, c.mobilePhone ,co.`name`,cc.createdTimeFROMClientCoupon AS ccINNER JOIN ActivityInfo AS ai ON ai.sn = cc.activitySnINNER JOIN Client AS c ON cc.clientSn = c.snINNER JOIN C

2015-12-19 14:45:17 1594

原创第三章一元和二元操作符

3.1 项和列表操作符(左向)3.2 箭头操作符:双目操作符-> 是一个中缀解引用操作符:如果右边是一个[...] 数组下标,一个{......} 散列下表或者一个(.....)子过程参数列表,那么它左边必须是一个对应的数组,散列,或者子过程的引用###一个数组解引用:zjzc01:/root/big# cat a24.pl $var=[1,2,3,4];prin

2015-12-18 15:24:13 907

原创 perl 文本内容转hash数组

zjzc01:/root/big# cat grades A 70B 80C 90D 50E 60F 80zjzc01:/root/big# cat a7.pl open(GRADES, "grades") or die "Can't open grades: $!\n"; while ($line = ) { ($student, $grade) = split(" ", $

2015-12-17 10:18:48 1698

原创 Perl 计算平均值

zjzc01:/root/big# cat grades A 70B 80C 90D 50E 60F 80zjzc01:/root/big# cat a6.pl open(GRADES, "grades") or die "Can't open grades: $!\n"; while ($line = ) { ($student, $grade) = split(" ", $

2015-12-17 10:14:48 3696

原创 mysql binlog 分析

598224: daysOfYear=360,737706: daysOfYear=360,760428: daysOfYear,803628: daysOfYear=360,829346: daysOfYear=360,830128: daysOfYear=360,830559: daysOfYear=360,831028: daysOfYear=

2015-12-16 13:16:42 454

原创 perl 回调函数

回调函数 callback 在perl中的表现我稍微总结了下回调函数，callback，希望能帮助新手理解模块中的callback 回调函数的认识： 1回调函数是一个函数，其在脚本中只能以参数的形式进行传递。不被直接调用。在perl中有两种形式;$funcrefer=sub {}; #引用 Sub xxx {}; \&xxx,#函数的引用取其地址 2回调函数

2015-12-15 20:36:41 964

原创第六章模块

包的基本知识:关键词package 标志这一个新的名字空间的开始,在它之后声明的所有的全局标示符(包括变量名,子例程,文件句柄,打印格式和目录句柄)都将属于这个包(package),例如:perl 包编写:zjzc01:/root/perl# cat t15.pl package BankAccount;$total =0;sub deposit{ my ($amo

2015-12-15 17:00:57 329

原创 haproxy 开发环境配置 80转发

acl url_static_hmq path_end .html .gif .png .jpg .css .js use_backend www.zl.com if zl_6_req url_static

2015-12-15 15:59:06 628

原创第四章闭包

闭包(Closure）闭包是这样一种子例程,创建时,它将包含其子例程的环境打包(包括所有它需要的和不局部去本身的变量).子例程的引用:对有名子例程的引用:我们前面就已经讲过,要创建对现存变量的引用,只需要它加上反斜杠前缀。对子例程也大致如此,如\&mysub就是对&mysub的引用。比如:zjzc01:/root/perl# cat t8.pl sub greet

2015-12-15 10:58:41 121

原创第三章 Typeglob 和符号表

Typeglob 和符号表:zjzc01:/root/perl# cat t5.pl $a=20; { local ($a); ##先保存$a原先的值,新值为undef my (@b); ##Lexical变量 $a = 10; ##改变$a的新值@b = ("wallance","grommit");print $a; ##打印结果位"10"print "\n

2015-12-14 15:08:36 172

原创第2章实现复杂的数组结构:

实现复杂的数组结构:Perl 中使用数组的数组是最为直观的一种矩阵表达方式,因为Perl不直接支持二维数组:zjzc01:/root/perl# cat a14.pl @matrix = ([1,2,3],[4,5,6],[7,8,9]);print "\$matrix[1][2] is $matrix[1][2]\n";zjzc01:/root/perl# perl a14.p

2015-12-14 10:19:47 644

原创 mysql group by

mysql> select * from t2;+------+----------+------+| name | address | flag |+------+----------+------+| a | aaaaaaaa | 1 || a | bbbbbb | 1 || b | bbbbbb | 1 || b | bbbb

2015-12-11 19:04:37 107

原创 perl 解析JSON

[root@dr-mysql01 ~]# cat ip.pl use Encode;use Encode::CN;use JSON; use URI::Escape;use LWP::Simple;print "hostip is $_\n"; $host = "http://ip.taobao.com/service/getIpInfo.php?ip=$ARGV[0]";$con

2015-12-11 17:24:17 2258

原创数组的数组散列的散列

数组的数组:数组的数组的引用: [] 表示数组的引用:[root@dr-mysql01 ~]# cat t1.pl @matrix=([1,2,3],[4,5,6],[7,8,9]);print $matrix[2][0];print "\n";print $matrix[1][1];You have mail in /var/spool/mail/root[root

2015-12-11 17:23:17 681

原创 HTTP Cookies - HTTP cookie jars HTTP cookie jars:

HTTP Cookies - HTTP cookie jars HTTP cookie jars: use HTTP::Cookies; $cookie_jar = HTTP::Cookies->new( file => "$ENV{'HOME'}/lwp_cookies.dat", autosave => 1, ); use LWP; my $brow

2015-12-11 13:25:50 548

原创 HTTP Request

HTTPRequest - HTTP style request message HTTP请求消息的方式:介绍: require HTTP::Request; $request = HTTP::Request->new(GET => 'http://www.example.com/');类似于: $ua = LWP::UserAgent->new; $response = $

2015-12-11 11:04:28 163

原创 HTTP Headers

HTTP Headers--类封装HTTP消息头:require HTTP::Headers; $h = HTTP::Headers->new; $h->header('Content-Type' => 'text/plain'); # set $ct = $h->header('Content-Type'); # get $h->remove_header(

2015-12-11 10:48:14 3062

原创 perl 自定义请求头

use LWP::UserAgent; $ua = LWP::UserAgent->new; @header = ( 'accept'=> "application/json", 'content-type'=> "application/json", 'apix-key'=> "e7b00871640c49567a37566ccd5c27e9", 'User-

2015-12-10 18:02:17 558

原创 perl 监控网站域名劫持

use Net::Ping;use Socket;use LWP::Simple qw(get); use HTTP::Date qw(time2iso str2time time2iso time2isoz);use Net::Ping; use Socket;use Net::SMTP;sub send_mail{if (@_ != 2){print "请输入2个参数\n"

2015-12-09 10:57:39 617

原创 perl switch 和case语句

use Net::SMTP; use HTTP::Date qw(time2iso str2time time2iso time2isoz); my $CurrTime = time2iso(time()); my $dis_mainpublish='中均资本';my $menu= <<EOF; DATE:$CurrTime --------

2015-12-08 11:49:52 3467

原创 14.15 InnoDB Backup and Recovery Innodb备份和恢复

14.15 InnoDB Backup and Recovery Innodb备份和恢复14.15.1 The InnoDB Recovery Process安全数据库管理的关键是做定期的备份。依赖你的数据库的容量, MySQL servers的数量,和数据库的工作负载, 你可以使用这些技术,单独的或是组合的：使用MySQL 企业备份进行热备份,关闭MySQL数据库进行冷备份, 物理备份用于快速

2015-12-07 15:38:30 581

原创 14.10.3 SQL Syntax for Online DDL 在线DDL SQL语法

14.10.3 SQL Syntax for Online DDL 在线DDL SQL语法通常情况下, 你不需要做任何事情来启用在线DDL, 当使用ALTER TABLE 语句。See Table 14.6, “Summary of Online Status for DDL Operations” 对于DDL操作的类型允许并发的DML, 一些变化需要特定配置的组或者ALTER

2015-12-07 10:49:00 358

原创 14.10.2 Performance and Concurrency Considerations for Online DDL 在线DDL的性能和并发考虑

14.10.2 Performance and Concurrency Considerations for Online DDL 在线DDL的性能和并发考虑在线DDL 改善MySQL操作的几个方面,比如性能,并发,可用性和扩展性。因为查询和DML操作在表上可以被处理当DDL是在处理,应用访问表是更加灵敏的,降低锁和等待其他资源尽管因此MySQL server 导致更大的扩展性,即使操作不涉

2015-12-04 17:42:43 106

原创 perl 数组元素为空和数组元素为undef 是两码事

[root@dr-mysql01 ~]# cat x.pl @arr=($tmp1[-1], $tmp2[-1],2);if (@arr){print "111111\n"};print "\$arr[0] is $arr[0]\n";print "\$arr[1] is $arr[1]\n";[root@dr-mysql01 ~]# perl x.pl 111111$arr[0]

2015-12-04 12:55:46 2875

原创 perl next 循环

v-dev-redis01:/root# cat x.pl open (LOG ,"<","/root/x.out"); while () { chomp; next if ($_ eq '192.168.32.5'); print "\$_ access $_\n";}v-dev-re

2015-12-04 09:20:55 1100

原创利用微信机器人,自动发送验证码

use Weixin::Client; use Encode; #目前只能用于群回复 my $client = Weixin::Client->new(debug=>0); #加载ShowMsg插件，用于打印消息 $client->load("ShowMsg"); #客户端登录 $client->login(); #设置客户端接收消息

2015-12-03 23:23:53 6361 1

空空如也

空空如也