mcshell的博客_perl学习笔记

perl dancer + net::ssh2监控服务器性能

最近一直在看dancer,发现真心好用,之前在看mojo,搞了好久没有搞懂.只能怪自己太挫了.作为练手就写了一套简易的监控系统,主要是利用net::ssh2模块监控AIX服务器的CPU,IO负载,还有磁盘空间.当然如果你是linux/unix作为监控服务器简易使用net::ssh:perl 或者使用SNMP来获取服务器信息.在lib下添加login.pmpackage&

监控系统

dancer

原创 2014-06-04 16:44:34 1664 阅读

perl anyevent socket监控web日志server

上篇已经讲过client端的CODE这部分code主要用来接收client端发送来的日志,从数据库中读取reglar然后去匹配.如果出现匹配则判断为XSS攻击.server端的SOCKET接收用了coro相关的模块.配置文件仿照前一篇博客读取即可.#!/usr/bin/perl use warnings; use strict; use AnyEvent; use AnyEvent::DBI::M

server

监控

数据库

socket

配置文件

perl

原创推荐 2014-02-24 14:22:58 1950 阅读 1点赞 2评论

perl anyevent socket监控web日志client

此脚本为client端的code,主要实现读取日志中的一些关键词进行过滤,以下介绍几个模块的用途:File::Tail 用于读取日志,功能类似于linux中tail ,只读取最新的日志AnyEvent 处理异步事件AnyEvent::Socket 建立socket连接AnyEvent::Handle 处理Socket中的句柄Config::Tiny

linux

监控

Socket

配置文件

关键词

anyevent

原创 2014-02-24 14:18:44 2001 阅读

perl 正则匹配嵌套结构

有这么一道题。。 aaa bbb #if defined(__MMI_DEL__) ccc #endif ddd eee #if defined(__MMI_DEL__) fff &nb

正则表达式

perl 正则

div 嵌套

动态正则表达式

原创 2013-03-14 11:22:19 4667 阅读 1点赞

一道关于停车计费的问题

程序允许30分钟，期间要求用户输入来模拟车辆进入、出去的行为输入的内容为一串字符串，每个不同的字符串代表一辆车. 纪录所有车每次进出的时间，计算时间、次数和价格. 价格依照价格表，阶梯定价：头10分钟5元，超过10分钟的每分钟5元程序运行30分钟自动退出，程序退出前还没出库的车，收费200元程序最后统计所有车辆的情况：次数，每次时间，总时间，总价 code: #

perl

perl应用

原创推荐 2013-03-11 09:27:25 1273 阅读 2点赞 1评论

利用perl计算考勤表并且输出excel表格

需要处理的excel的格式如下转换器代码如下（防止中文乱码）(作者为:flw)： package MyExcelFormatter; use strict; use warnings; use base qw(Spreadsheet::ParseExcel::Fmt

excel

中文乱码

perl

原创 2013-03-01 15:46:39 3517 阅读 3点赞 1评论

perl 合并多个文件一例

这个问题是cu上有人提出的，感觉具有代表性，特地记录一下比如a 文件内容如下 a=11 b=http://www.baidu.com/baicd c=xxx/baidu.apk a=12 b=http://www.sina.com/xxx c=xxx/sina.apk a=13&n

perl

文本处理

合并文本

原创 2013-01-08 17:23:40 3203 阅读

perl selenium操控浏览器填写表单完成自动化测试

很多时候在做测试的人员需要去测试开发人员的新项目，传统的操作是打开浏览器点击各个地方看操作是否流畅，是否会报BUG。每天都会重复的操作，我想不管是谁都不喜欢做这些重复的事情吧。这时候如果有一个软件能够自动化完成重复性的操作，节约了大量的人力物力。这次就来说说关于selenium的那些事，第一次直接把效果展现给大家，这样就会有学习的兴趣。一、下载所需要的软件这里说一下，我所在的平台是win。

perl

selenium

模拟浏览器

程序操控浏览器

原创 2012-12-25 15:04:06 3081 阅读 4点赞 4评论

利用perl rrdtool绘制网络流量图

一直很想了解nagios中的pnp是如何工作的，正好看到这几天cu上有人问rrdtool如何图像。这几天特地的翻了翻rrd的资料，补习了下。结合perl的一些模块，获取所需要的数据，最后调用rrdtools绘制图像。好了，废话不多说了，开始讲解实现过程。一、所需软件以及安装方法 1.安装rrdtool （这里不多说了，网上文章太多了）

perl

rrdtool

流量图

原创 2012-12-17 22:00:50 2501 阅读 2点赞 3评论

perl计算IP所在的子网范围

自定义的子网范围如下： 192.168.0.0/16 219.111.192.0/18 68.132.0.0/17 61.135.0.0/16 192.162.0.0/16 152.172.0.0/16 34.132.0.0/14 97.208.0.0/13 有以下几个IP：192.168.1.5 219.111.193.1 219.111.1.2，要求计算

ip

perl

netmask

原创 2012-12-12 09:56:25 1498 阅读 1点赞 1评论

利用perl监控文件状态

作为运维来监控文件的状态可以扩展很多个方面，例如rsync增量备份，监控服务器是否被黑客入侵等等。所以说监控文件的状态至关重要。根据这几天的工作的需求特别写了一个Perl脚本，有什么方面没有考虑到的希望大家多多指出。需要安装的模块： File::Monitor File::Find::Rule 安装方法： win下（需要有perl环境，我这里装的是activeperl） cmd下进入

monitor

perl

监控文件状态

原创推荐 2012-12-06 16:26:53 5498 阅读 3点赞 3评论

求两个字符串最大公共字符串(听说是微软几年前面试题)

两个字符串的最大公共子串,是一个程序员们常常考到和想到的题目，听讲是当年微软面试时要求做的一个程序,写一个返回两个任意字串中最大公共串的函数，即abcdef 和 qcfbcc 返回值为bc 注：你要考虑到字符串中最大公共串相等的问题。例如 dddabd123456abcdefeeeee 234dddabcdegeeee 输出： dddab abc

面试题

perl

文本处理

原创 2012-11-26 21:39:46 1235 阅读 2点赞 2评论

匹配html input img标签中的value name位置不固定

需要匹配文本如下: 要求alt标签不为hello,不能与src中后面的图片名相同，不能为汉字 <img src="en/p_w_picpaths/main_page/cover.jpg" alt="hello" /> <img src="en/p_w_picpaths/main_page

正则表达式

regex

原创 2012-11-23 14:50:52 1290 阅读 1点赞 1评论

perl中tr的研究

perl中有三种模式 m// ,s///,tr///; 前两种就不多说了，经常出现。这里说下tr：很多人用习惯了s///，发现和tr有很多相同的地方，都是将字符串替换成自己想要的内容。 tr的重要作用在于“转换”. 例如：大小写转化： $str = "Hello World"; $str =~ tr/a-zA-Z/A-Za-z/;

perl

perl tr

原创 2012-11-01 23:20:33 8102 阅读 1点赞

perl远程执行多台服务器shell命令

在生成环境中通常运维需要执行非常多的重复命令，一台可能还好多台就杯具了。尤其有时候要批量去更新多台服务器的文件，或者是删除。一个好运维都是懒惰的，所以自己写了个perl脚本可以远程去执行shell命令，很灵活。2个配置文件，一个管理服务器信息，一个放所需要执行的命令。 code: #!/usr/bin/perl use strict; use

ssh

perl

原创 2012-09-12 15:49:08 4826 阅读 3点赞 8评论

perl 利用Net::SSH::Expect模块批量修改服务器密码

如果以下脚本可以批量修改服务器的密码，并且导出随机生成的密码首先需要安装Net::SSH::Expect 安装方法： #cpan cpan>install Net::SSH::Expect 然后一路回车#!/usr/bin/perluse strict;use warnings;use Net::SSH::Expect;my @ssh_list;my @array_li

perl

批量修改服务器密码

原创推荐 2012-07-12 15:00:49 2125 阅读 4点赞 3评论

利用squidclient清理nginx多台缓存服务器cgi程序

此cgi脚本用perl写的，用于清理多台nginx缓存服务器。使用方法：将此脚本放在能够执行cgi程序的web服务器上。打开浏览器访问此脚本，输入需要清理缓存的CSS或者是图片地址，如果要清理多个缓存，请一行输入一个地址即可。code：#!/usr/bin/perluse strict;use warnings;use CGI;my $req = new CGI;print $req->he

squidclient

purge

perl cgi

清理多台nginx缓存

原创推荐 2012-06-27 16:43:28 1366 阅读 1点赞 6评论

perl中替换文本一例

由于工作需要，需要批量建立网站，修改配置文件。开始时用sed去批量修改的，最后改装成perl了。 #!/usr/bin/perl while(<>){ chomp; @line=split(/\s+/,$_); open FH,"< /home/test/$line[0]/wp-config.php"; my @webfile; while(<FH>){ &

数组

替换

split

perl

sed

原创 2011-03-22 09:59:54 1413 阅读 1点赞

perl批量建站脚本

本脚本适用于apache的配置文件，进行批量建站。 #!/usr/bin/perl while(<>){ chomp;

apache

批量

建站

perl

原创 2011-03-18 11:46:04 1170 阅读

perl笔记之ping批量检查IP是否连通

由于有时候要批量的用ping检查服务器的IP是否可用，一个一个的ping太麻烦了，所以利用perl中的Net::ping模块，代码如下use warnings;open AA,"ip"; use Net::Ping;chomp(@ARGV=<AA>);foreach $host (@ARGV){ $p = Net::Ping->new("icmp");# print "$host

ping

休闲

perl

net::ping

批量ping

原创 2011-03-04 15:00:44 1816 阅读

perl笔记之DBI操纵数据库

perl中的DBI（数据库接口，Database Interface）是个对数据库操纵很强大的东西，这次正好工作中用到了他的一点皮毛所以做个记录。具体情况就是插入多条记录 #!/usr/bin/perl use DBI; open AA,"c1"; my $dbname="sverlog"; my $location="localhost"; my $port="3306"; my $d

休闲

模块

perl

DBI

批量导入

原创 2011-02-17 14:00:00 946 阅读

perl笔记之排序

有如下三组代码用大小进行排序 17 1000 04 1.50 3.14159 -10 1.5 4 2001 90210 666 9 0 2 1 0 2001 42 -40 98.6 2.71828 传统的sort排序只能按照ascii排序不能按照数字的大小进行排序用如下代码进行排序 #!/usr/bin/perl while (<>) { push @numbe

排序

split

perl

sort

sub

原创 2011-02-15 21:17:39 871 阅读 1点赞

perl中打印随机数

打印出1-100之间的随机数，并且让用户输入，输入正确了退出，失败继续输入。当输入exit,quit,空行的时候打印出随机数字并且退出。 #!/usr/bin/perl my $rand = int (1+ rand 100); #print "this is $rand"; #调试程序 while (1) {

休闲

perl

随机

last

rand

原创 2011-01-25 16:02:36 1027 阅读 1点赞

perl,shell中如何打印出处理sql语句变量的单引号

今天早上有个小问题难住了，在sql中的insert语句中需要打印单引号。 awk '{print "insert into webconfig (domain,webdir) values("$1","$2")"";"}' 因为需要打印出$1,$2变量而且需要单引号，试了很多种方法都不行，转义，双引号都已过了，都是不能输出。最后参悟了一句话

变量

perl

单引号

awk

转义

原创 2011-01-24 10:32:59 4427 阅读

perl 匹配某行后添加字符串

职场

字符串

添加

休闲

perl

原创 2011-01-20 13:25:36 5571 阅读

perl中的hash练习笔记

这道练习题是小骆驼中hash中的一道，感觉很有代表性。读取一些单词，每行一个直到文件结束，然后出每个单词出现的次数。有两种方法可以完成它，如下第一种方法 #!/usr/bin/perl -w print "Enter words:" chomp(@k=<>); foreach $k (@k) {

职场

hash

休闲

perl

原创 2011-01-16 10:54:43 1431 阅读 2点赞 3评论

perl引用中的闭包closure

perl中的引用相当于指针，其中闭包closure实现迭代，类似数据库游标取出一行行记录。#!/usr/bin/perlsub number_printer { my ($input) &

引用

休闲

perl

闭包

closure

原创 2011-01-12 22:25:50 741 阅读

用perl过滤文本中的IP和端口

1.可以提取html，等无规律的文本中的ip和端口。 cat proxycn.txt |perl -lne ' print $1 if ( /((\d{1,3}\.){3}\d{1,3}:\d{1,5})/ ) ' 2.提取log中的被访问网址的次数

ip

log

perl

sort

uniq

原创 2010-09-14 14:10:48 1020 阅读

正则表达式学习实例1

将文本中的MAIL和HTTP URL转化为链接形式 $hostnameregex = qr/[-a-z0-9]+(\.[-a-z0-9]+)*\.(com|cn|info)/i;#设置其中匹配URL的文本变量 chomp($text=<STDIN>);#接收用户输入的一行文本，并且去掉$text尾行的换

实例

正则表达式

学习

休闲

perl

原创 2010-07-13 20:35:46 555 阅读

官方博客	全部文章	热门标签	班级博客
了解我们	网站地图	意见反馈

鸿蒙开发者社区	51CTO学堂
51CTO	软考资讯

51CTO博客

mcshell学习博客

perl dancer + net::ssh2监控服务器性能

perl anyevent socket监控web日志server

perl anyevent socket监控web日志client

perl 正则匹配嵌套结构

一道关于停车计费的问题

利用perl计算考勤表并且输出excel表格

perl 合并多个文件一例

perl selenium操控浏览器填写表单完成自动化测试

利用perl rrdtool绘制网络流量图

perl计算IP所在的子网范围

利用perl监控文件状态

求两个字符串最大公共字符串(听说是微软几年前面试题)

匹配html input img标签中的value name位置不固定

perl中tr的研究

perl远程执行多台服务器shell命令

perl 利用Net::SSH::Expect模块批量修改服务器密码

利用squidclient清理nginx多台缓存服务器cgi程序

perl中替换文本一例

perl批量建站脚本

perl笔记之ping批量检查IP是否连通

perl笔记之DBI操纵数据库

perl笔记之排序

perl中打印随机数

perl,shell中如何打印出处理sql语句变量的单引号

perl 匹配某行后添加字符串

perl中的hash练习笔记

perl引用中的闭包closure

用perl过滤文本中的IP和端口

正则表达式学习实例1