zhaoyangjian724的专栏

原创 perldoc Module::Build::Tiny

[root@master sbin]# perldoc Module::Build::Tiny [root@master sbin]# locate Tiny.pm/root/.cpan/build/CPAN-Meta-YAML-0.016-RettOE/t/lib/TestML/Tiny.pm[root@master sbin]# locate Tiny/root/.cpan/bu

原创 第11章 模块

第11章 模块；模块是Perl里重复使用的基本单元,在它的外皮下面,它只不过是已定义在一个同名文件(以.pm）里面的包。模块有两种风格:传统的和面向对象的。传统模块为调用者的输入和使用定义了子过程和变量。面向对象的模块的运转类似声明并且是通过方法调用来访问的。use 语句在编译的时候对MODULE进行一次预装载,然后把你需要的符号输入进来,这样剩下的编译过程就可以使用这些符号了。如果你想提供你想要

原创 mysql 清理分区表

mysql> alter table trends truncate partition p20150810;Query OK, 0 rows affected (0.37 sec)mysql> select count(*) from trends partition(p20150810);+----------+| count(*) |+----------+|

原创 perl JMX::Jmx4Perl

NAME ^JMX::Jmx4Perl - JMX access for PerlSYNOPSIS ^Simple:use strict; use JMX::Jmx4Perl; use JMX::Jmx4Perl::Alias; # Import MBean aliases print “Memory Used: “, JMX::Jmx4Perl

原创 perl JMX::Jmx4Perl::Manual

JMX::Jmx4Perl::Manual - Documentation for jmx4perlJMX(Java Management Extensions) 是标准的管理解决方案。由于JGK 1.5 是可用的在每个Java Virtual Machine尤其是JEE应用服务器使用该及时深入揭露管理实体。事实上，流行的JEE服务器JBoss 4是基于JMX的内核对于Perl的世界,它是不容易访问

原创 java jolokia配置

[tomcat@wx01 ~]$ java -jar jolokia-jvm-1.3.1-agent.jar 11504 jolokia-jvm-1.3.1-agent.jar 11340 org.apache.catalina.startup.Bootstrap start运行上面的命令会显示当前该机器上正在运行的MBean server的所有程序的PID。 我们上面的HelloA

原创 Perl 模块依赖

CPAN Dependencies 依赖:给定的模块,这个服务显示它的依赖随着从CPAN 的测试结果, 你选择几个模块的使用,这个高速你最可靠的搜索。请注意: 这个网站是一个工具来分析模块的依赖性。 我不能帮助你任何你使用模块的问题。它依赖于 META.yml or META.json files,因此可以解决他们的依赖问题,并且区分大小写。

原创 perl Net::Tomcat

Net::Tomcat(3) User Contributed Perl Documentation Net::Tomcat(3)NAME Net::Tomcat - A Perl API for monitoring Apache Tomcat. Net::Tomcat 一个Perl API用于监控Apache TomcatVE

原创 tomcat 管理控制台配置

http://x.x.118.32:8085/ 访问控制台的前提,必须得有:/usr/local/apache-tomcat-7.0.55_8085/webapps[tomcat@wx01 webapps]$ lshost-manager manager ROOT xx.tar zjzc-weixin-server zjzc-weixin-server20150831.tar

原创 zabbix 监控tomcat

./configure -sysconfdir=/etc/zabbix/ -enable-server -enable-agent -with-net-snmp -with-libcurl -with-mysql --enable-javamake && make install#此处指定sysconfdir配置文件的路径就在/etc/zabbix/目录下了，如果不指定默认在/usr/l

原创 第9章 数据结构

9.1.1 创建和访问一个两维数组下面是如何把一个两维数组放在一起的方法:@Aoa = (["fred", "barney" ],["george", "jane", "elroy" ],["homer", "marge", "bart" ],);print "\$Aoa[2][1] is $Aoa[2][1]\n";[root@master Webqq]# perl t20.

原创 标量 ,数组,hash 引用

[root@master Webqq]# cat t23.pl $var='aaa';$refvar=\$var;print "$$refvar\n";@arr=qw/1 3 5/;$refarr=\@arr;print @$refarr;print "\n";%hash=(a=>1,b=>2,c=>3);$refhash=\%hash;print %$refhash

原创 mysql 基于时间点恢复

MySQL基于时间点恢复(PITR) MySQL的PITR主要是通过mysqldump来做全备，然后通过log-bin来恢复到某个时间点，达到PITR的目的确认log_bin是否打开mysql> show global variables like 'log_bin';+---------------+-------+| Variable_name | Value |+----

原创 perl 闭包

就像我们有无数的方法创建引用一样,我们也有好几种方法使用引用(或者称之为解引用).使用过程中只有一个最高兴的原则:Perl不会做任何隐含的引用或者解引用动作。如果一个标量挂在了一个引用上,那么它总是表现出简单标量的行为。它不会突然就称为一个数组或者散列或是子过程,你必须明确地告诉它进行转变,方法就是对它解引用。8.3.1 把一个变量当作变量名使用如果你看到一个标量,比如$foo，你应该把它看成fo

原创 haproxy 官方文档

HAProxy Configuration Manual version 1.5-dev24 willy tarreau 2014/04/26This document covers the configuration language as implemented in the version specified above. It does n

原创 请求图片服务器

原创 mysql datetime,timestamp,date

mysql> desc Client -> ;+----------------------------+-------------+------+-----+-------------------+-----------------------------+| Field | Type | Null | Key | Defaul

原创 perl--匿名数据

在C里,间接的最常见的形式就是指针,它可以让一个变量保存另外一个变量的内存地址。在Perl里,间接的最常见的形式是引用。什么是引用?在我们的例子里,$vitals[0] 的值是”john”.也就是说它正好包含另外一个(全局)变量的名字,我们说第一个变量提到了第二个变量,并且这种参考叫符号引用,因为Perl必须在一个符号表找出@john 来才到能找到它。8.2 创建引用创建引用的方法有好多种,我们在讲

原创 会话保持

F5是负载均衡器产品中的知名者，相信很多人都不会不知道的。那么，它是如何进行会话保持的呢？这个还是让我们从会话保持的定义谈起。做一个形象的比喻：会话保持可以看做一串珍珠，那么我们把每一个珍珠拆下来放到不同的盒子里面进行保存处理，之后在拿出来穿成串，也就是一个分配的概念。那么，学术上是怎么描述的呢？还是让我们从下文了解吧。1.什么是会话保持?在大多数电子商务的应用系统或者需要进行用户身份认证

原创 web session 共享实现方式

一，利用数据库同步session　　1，用一个低端电脑建个数据库专门存放web服务器的session，或者，把这个专门的数据库建在文件服务器上，用户访问web服务器时，会去这个专门的数据库check一下session的情况，以达到session同步的目的。　　2，这种方法是把存放session的表和其他网站注册量数据库表放在一起，如果mysql也做了集群了话，每个mysql节点都要有这张表，并

原创 第四章 语句和声明

$Some::stuff 使用包some的标准变量$stuffour 把名字限制于一个作用域,local 把值限制于一个作用域,my 把名字和值都限制于一个作用域my变量:[root@master Webqq]# cat t5.pl {my $var=11;print "\$var is 1--$var\n";}{print "\$var is 2--$var\n"};

原创 haproxy 4层和7层负载

负载均衡四层和七层主要是根据网络的结构来的。一般来说，四层主要是网络层，也就是TCP和UDP的负载均衡（主要是TCP的）。七层是应用层，主要是指HTTP、FTP、HTTPS等的负载均衡。四层负载均衡的典型软件如LVS，七层负载均衡的比较典型软件如haproxy，nginx等。7层模式下，HAProxy会分析协议，并且能通过允许、拒绝、交换、增加、修改或者***请求 (request)或者回

原创 haproxy 配置缺省的webserver

retries 3 option redispatch option abortonclose maxconn 65535 timeout connect 5000 timeout client 50000 timeout server 50000 timeout check

原创 nginx 配置多个目录

server { listen 8001; server_name localhost; #charset koi8-r; #access_log logs/host.access.log main; location / { root /t/deploy/zjdev/

原创 第二章 集腋成裘

$days 简单标量值 $days$days[28] 数组@days 的第29个元素$days{'Feb'} 散列%days的"Feb"值$Dog::days 在Dog包里面的不同的$days变量常用 通用 含义// m// 模式匹配` `

原创 linux openssl漏洞

OpenSSL 官方发布漏洞预警，提醒系统管理员做好 OpenSSL 的升级准备。最新版本 OpenSSL 将于 7 月 9 日（本周四）发布，修复了一个未经披露的高危漏洞。不少安全专家推测，这个高危漏洞将可能是另一个“心脏滴血”。神秘的高危 0day 漏洞OpenSSL 是一个广泛使用的开源软件库，它使用 SSL 和 TLS 为大多数网站提供加密的互联网连接。OpenSSL 项目团队

原创 perl 转化 utf8/unicode/gb2312

use utf8; use Encode; use URI::Escape; #从unicode得到utf8编码 $str = '%u6536'; $str =~ s/\%u([0-9a-fA-F]{4})/pack("U",hex($1))/eg; $str = encode( "utf8", $str ); print uc unpack( "H*"

原创 第5章 正则表达式

如果把斜杠用做分隔符,你可以把m//写成//,不用写m)为了有更好的颗粒度并提高效率,可以用小括号捕捉你特别想分离出来的部分。每对小括号捕捉与小括号内的模式向匹配的子模式,小括号对 由左小括号的位置从左到右一次排序,对应那些子模式的字符串在匹配之后可以通过有编号的变量$1,$2,$3 等等获取:Perl 的Unicode属性[root@master Webqq]# cat t8

原创 perl 中的my和全局变量

$Some::stuff 使用包some的标准变量$stuffour 把名字限制于一个作用域,local 把值限制于一个作用域,my 把名字和值都限制于一个作用域my变量:[root@master Webqq]# cat t5.pl {my $var=11;print "\$var is 1--$var\n";}{print "\$var is 2--$var\n"};

原创 第一章 Perl 概述

$fido = new Camel "Amelia";if (not $fido){die "dead camel";}$fido->saddle();在这里,我们首选创建一个指向Camel对象的引用,并将它赋给变量$fido，在第二行中,我们将$fido当成一个布尔值来判断它是否为真,如果它不为真,程序将抛出一个异常。在这个例子中,这意味着new Camel 构造器创建Ca

原创 perl .= 操作符

[root@master Webqq]# cat k4.pl $a=3;$b=4;print "\$a is $a\n";print "\$b is $b\n";$a .=$b;print "\$a is $a\n";print "\$b is $b\n";[root@master Webqq]# perl k4.pl $a is 3$b is 4$a is 34$b is

原创 perl 卸载Oracle数据库

#!/usr/bin/perl use strict;use DBI;my $dbName = 'dwh1';my $dbUser = 'dwm';my $dbUserPass = 'dwm';my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to datab

原创 perl 卸载mysql数据库

#!/usr/bin/perl use DBI;$dbUser='test';$user="test";$passwd="123456";$dbh="";$dbh = DBI->connect("dbi:mysql:database=plmsdb;host=10.10.17.5;port=3306",$user,$passwd) or die "can't connect to dat

原创 perl 机器人

use Mojo::Webqq; use Mojo::Webqq::Friend; use Mojo::Util qw(md5_sum); use Encode; use Mojo::Webqq::Message::Recv::Message; use Mojo::Webqq::Plugin::SmartReply; use Sys::Hostname; use HTTP::Date

原创 perl qq 机器人

t a1.pl use Mojo::Webqq;use Mojo::Webqq::Friend;use Mojo::Util qw(md5_sum);use Encode;use Mojo::Webqq::Message::Recv::Message; #初始化一个客户端对象my $client=Mojo::Webqq->new(ua_debug=>0); my $qq =

原创 Perl 内网发邮件问题

内网发邮件,smtp服务器 可以设置成内网Ip

原创 perl Cava Packager

在Win 7 64位下,打包成exe 需要拷贝整个MyApp目录才能运行程序,否则会报:

原创 Windows 万能守护进程

use Win32::Process::Info;use Sys::Hostname;use HTTP::Date qw(time2iso str2time time2iso time2isoz); use Net::SMTP;sub send_mail{if (@_ != 2){print "请输入2个参数\n";exit 1}; ($m,$n) = @_; #将参数赋值给变

原创 perl 中的$/

[root@master perl]# cat 4.pl $data = "this>";#local $/ = ">";chomp($data);print "\$data is $data\n";[root@master perl]# perl 4.pl $data is this>[root@master perl]# cat 4.pl $data = "this>";

原创 perl 验证vmstat si so默认单位为KB

procs -----------memory---------- ---swap-- -----io---- --system-- -----cpu----- r b swpd free buff cache si so bi bo in cs us sy id wa st 3 0 972948 7284 124 1608 5504