perl版阿里云签名公共参数方法

2016年1月27日    热度747 ℃   3 条评论

记录下,阿里云的签名验证真心蛋疼,比如时间戳做了二次utf8转码,文档中的签名结果与实际不相符等.

package AliYun;
use Moose;
use Redis;
use POSIX qw(strftime);
use Data::Dumper;
use Digest::HMAC_SHA1 qw(hmac_sha1 hmac_sha1_hex);
use JSON;
use URI::Escape;
use LWP::UserAgent;

#定义签名常量
has 'accessKeyId'     => ( isa => &[......]

Read more

分类: perl 标签:

mac下brew安装mysql无法启动一例

2016年1月7日    热度775 ℃   没有评论

error log:

/usr/local/Cellar/mysql/5.6.27/bin/mysqld: Can’t find file: ‘./mysql/plugin.frm’ (errno: 13 – Permission denied)

 

chown -R mysql:mysql /usr/local/var/mysql
machenlongdeMacBook-Pro:mysql root# mysql.server start

Starting MySQL

. SUCCESS!

这时发现登录之后没有mysql用户表

mac[......]

Read more

分类: mysql 标签:

keepalive配置文件转化JSON

2015年10月30日    热度1,562 ℃   没有评论

无论在管理LVS配置中,对keepalive的配置文件管理是必不可少的,解析配置文件也是核心功能之一,现在把自己写的一些思路分享给大家~

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use JSON;
use re 'eval';
#将keepalived.conf 格式化为json数据


my $file = "/Users/machenlong/Downloads/keepalived.conf";
open FH, $file or die &quo[......]

Read more

分类: perl 标签:

使用正则表达式每3位数字加逗号

2015年9月1日    热度1,767 ℃   1 条评论

总结一下,在数字中增加逗号的方法,把一般情况都考虑之中。。

#!/usr/bin/perl
use strict;
use warnings;
my $num = 1234556789;
#纯数据模式
$num =~ s/(?<=\d)(?=(\d{3})+$)/,/g;
print $num,"\n";
#带有小数点模式
$num = 123456.1234;
$num =~ s/(?<!\.\d)(?<=\d)(?=(\d{3})+\b)/,/g;
print $num,"\n";
#大于5位之后。。。
#[......]

Read more

分类: perl 标签:

ucloud api 签名加密perl版

2015年6月26日    热度5,439 ℃   2 条评论

ucloud api文档中对签名加密的方法实在看不明白,而且没有perl版本,特意写了一份供大家参考

 

use URI::Escape;
use utf8;
use Encode;
use AnyEvent::HTTP::LWP::UserAgent;
use Digest::SHA qw(sha1 sha1_hex sha1_base64);
sub ucloudApiConn {

    my ( $publicKey, $privateKey, $baseUrl, $paramData ) = @_;

    #定义签名拼接字符串、http字符串[......]

Read more

分类: perl 标签:

使用coro+anyevent 异步协程获取IP运营商

2015年4月29日    热度1,505 ℃   没有评论

主要使用coro协程+AnyEvent::HTTP::LWP::UserAgent 异步http请求,查询数据库中IP字段,返回运营商。如需要获取其他类型的字段,修改正则即可,此方法的好处是,不需要获取本地IP库,提高IP精准度。缺点,需要很好的网络质量。CODE如下:

#查询IP的网络提供商
sub search_ip_area {
    my $self = shift;
    my ( $dsn, $dbuser, $dbpass, $ips ) = @_;
    my $ua = AnyEvent::HTTP::LWP::UserAgent->new;[......]

Read more

分类: perl 标签:

zabbix api 获取所有主机名、IP

2015年3月1日    热度2,833 ℃   2 条评论

主要添加了1条selectInterfaces记录,本质就是对于数据库就是join这张表。perl代码如下:

#!/usr/bin/perl
use strict;
use warnings;
use JSON::RPC::Client;
use Data::Dumper;
use JSON;
use utf8;
use Parallel::ForkManager;
my $pm = Parallel::ForkManager->new(20);    #定义开启进程数
$| = 1;
binmode( STDIN,  ':encoding(utf8)&#[......]

Read more

分类: perl 标签:

公用、全国DNS列表

2015年2月7日    热度2,735 ℃   1 条评论

公共 DNS 服务器 IP 地址

名称
DNS 服务器 IP 地址

CNNIC SDNS
1.2.4.8
210.2.4.8

114 DNS
114.114.114.114
114.114.115.115

阿里 Ali DNS
223.5.5.5
223.6.6.6

Google DNS
8.8.8.8
8.8.4.4

OpenDNS
208.67.222.222
208.67.220.220

全国各地电信 DNS 服务器 IP 地址

名称
DNS 服务器[……]

Read more

分类: linux 标签:

perl 增量、全量备份脚本

2015年1月20日    热度1,361 ℃   没有评论

脚本采用json配置文件,可以自定义,备份目录,全量备份周期,增量备份时间等。

{"backupDir":"/data_backup","archiveDir":"/archive_dir","original":"/www/","fullDayBase":10}
#!/usr/bin/perl
use warnings;
use File::Copy::Recursive qw/dircopy rcopy/;
use File::Rsync;[......]

Read more

分类: perl 标签:

nginx rewrite 带参数的uri

2015年1月17日    热度1,457 ℃   没有评论

rewirte 的如果有带参数的uri,那么nginx会自动忽略问号后面的参数,如果想将后面的参数进行rewirte,则需要使用$request_uri变量来接收。具体例子如下:

if ( $request_uri ~ "/await\.html\?game=([a-zA-Z]+)&server=S([0-9]+)$" ){
        set $game $1;
        set $sid $2;
rewrite ^/ http://game.6711.com/index.php?c=play&a=await&game=$game[......]

Read more

分类: linux 标签:

mac 下安装nali实现IP地址查询

2014年11月12日    热度1,765 ℃   没有评论

 

 

 

 

 

效果如下:

D9FD92D6-D637-4A63-9C8E-AD44D0C9E85C

 

mac安装方法:

1.安装wget

个人推荐:

Homebrew

也可以使用mac ports

brew:

ruby -e "$(curl -fsSL https://raw.githubusercontent.com/Homebrew/install/master/install)"
然后等待安装就OK
brew install wget
2.安装nali插件
我这边重新打包了一份最新的d[......]

Read more

分类: perl 标签:

广州-深圳徒步

2014年10月5日    热度1,958 ℃   没有评论

从想到实施还不到5天的时间,本来想买辆28大杠去骑行,想了想自己还没有中距离徒步过,就改为走了。体验下一个人在路上那份安静,让自己去想想曾经的事。一开始就遭遇和去年十一一样的情况,去年好歹睡了4个小时 ,今年只有苦逼得不到2小时(防火墙出问题导致折腾了一夜)就得上路。

73BBDA074FFAEB50574E3908E734A9E5

路上的人还真多,基本上都是骑行。背包的重量大概有30斤,尼玛平时走路没什么感觉,有了负重之后真心不一样,开始走了5公里肩膀已经快受不了了。

大概中午的时候,热的有点受不了33度啊 亲。正好看到路边的劳保用品点,果断买了顶相当碉堡的草帽,听说戴上,走在路上就没人敢打你了-.-。

572B1147FBAB3B29ECFBAC253841A2AF

走到15公里感觉肚[……]

Read more

分类: 杂谈 标签:

perl 转化 utf8/unicode/gb2312

2014年9月28日    热度4,104 ℃   没有评论
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*", $str ),"\n";  
  
# 从unicode得到gb2312编码[......]

Read more

分类: perl 标签:

使用Mail::Sender发送带图片的html邮件

2014年9月26日    热度2,443 ℃   没有评论

     需要指出的一定要保持编码的一致,否则会导致要么html乱码,或者主题乱码。如果有多个图片,可以采用多个Attach,html调用的图片名称为Attach中定义的。

效果图:

C2DA1AED-0C9D-42D0-BA19-569246B328AD

     code如下:

#!/usr/bin/perl
use strict;
use warnings;
use Config::Tiny;
use FindBin;
use Mail::Sender;
my $configFile = "$FindBin::Bin/config.ini";
my $configNew  = Config::Tiny->n[......]

Read more

分类: perl 标签:

mac 下 Image Magick安装

2014年9月23日    热度4,543 ℃   1 条评论

   尼玛在mac下折腾了好几个小时才弄好…记录下安装步骤

安装port
根据自己系统的版本下载,然后安装。
然后命令行执行:
sudo  port install ImageMagick
侧安装步骤比较缓慢,依赖的库比较多
下载
http://search.cpan.org/CPAN/authors/id/J/JC/JCRISTY/PerlMagick-6.89-1.tar.gz

sudo perl Makefile.PL

找到以下行数并且修改为:

my $INC_magick =[......]

Read more

分类: perl 标签:

perl redis dancer日志查询系统

2014年9月19日    热度3,430 ℃   没有评论

F04C2D5F-F851-4C67-A56E-A56E4ACD8B27
2ADA234E-2AB4-43B3-8C92-6A69D5120547

1.主要实现功能如下:
  可以查询当天、非当天日志,web方式查询,直接进入目录bin/app.pl 默认端口为3000
  当天主要存储在redis中;
  非当天存储形式为文本方式,存放历史服务器
2.redis涉及的键值如下:
--------------------------------------------------------------------
key	        value	                类型	        说明
searchQueue	mailname	        list	        存放队列
mailna[......]

Read more

分类: perl 标签:

redis内存不足问题一些方案

2014年9月13日    热度6,645 ℃   没有评论

2.8版本貌似以后就redis就不支持vm-enabled选项了,原因我估计作者出于性能考虑。随着数据量的增加就会报出内存不足,无法写入,甚至服务器宕机。我从以下方面左右相关优化。

  1. 选择redis就是选择了他的性能,在内存与实际过程中不足,关闭两种持久化方式,一种是 Snapshotting(快照)也是默认方式,另一种是Append-only file(缩写aof)的方式。两种方式都会复制1份相同的数据进行持久化写入。因此你的可用内存其实为真实内存的二分之一以下。

因为默认使用的是snapshotting方式,只需要注释

save 900 1 #900秒内如果超过1个key[……]

Read more

分类: nosql 标签: ,

macbook 方向键光标移动慢的问题解决

2014年8月24日    热度2,047 ℃   没有评论

进入“系统偏好设置”=》“键盘”=》“重复前延迟”调节到最短,然后和win下就没什么区别了。

顺便说下,MAC 下的KOMODO 编辑器真心好用。。。

分类: 杂谈 标签: