About Me留言板首页freebsdlinuxmiddlewaremysqlOracleperlphpregularweb杂谈热门搜索:hashlinuxmapmysql主从复制Perlperl 正则sambavim        订阅RSSperl  anyevent socket监控web日志server2014年02月24日  热度67 ℃上篇已经讲过client端的CODE这部分code主要用来接收client端发送来的日志,从数据库中读取reglar然后去匹配.如果出现匹配则判断为XSS攻击.server端的SOCKET接收用了coro相关的模块.配置文件仿照前一篇博客读取即可.#!/usr/bin/perl use warnings;use strict;use AnyEvent;use AnyEvent::DBI::MySQL;use ......  阅读全文 »perl  anyevent socket监控web日志client2014年02月19日  热度69 ℃此脚本为client端的code,主要实现读取日志中的一些关键词进行过滤,以下介绍几个模块的用途:File::Tail  用于读取日志,功能类似于linux中tail ,只读取最新的日志AnyEvent  处理异步事件AnyEvent::Socket  建立socket连接AnyEvent::Handle  处理Socket中的句柄Config::Tiny  读取ini配置文件#!/usr/bin/perl #u ......  阅读全文 »遇见,交错2014年01月17日  热度204 ℃心总是乱,或许是经历多了,想的事情多了.我是一个不善言辞的人,不懂得怎么样把悲伤的事情讲给他人,只能够默默的埋藏在心中,让时间慢慢的湮没. 当初还在犹豫将来是否在合肥定居,我也不清楚2年后自己会变成怎样,某人的出现突然让我下定决心?   多少次的自我否定,来执着一些别人看来很傻的事情.也许是因为失去的太多,或者 ......  阅读全文 »perl  AnyEvent + AnyEvent::Socket+AnyEvent::Handle 配置echo服务端2014年01月10日  热度159 ℃    这段时间一直在学习socket,本来想贴出coro配合anyevent,但是一直没有搞懂coro,后面的博文中会陆续奉上..下面的CODE主要还是参考了CU的laputa73,所写出的.实现很简单.server:#!/bin/env perl   use warnings;use strict;use AnyEvent;use AnyEvent::Socket;use AnyEvent::Handle;use IO::Handle;m ......  阅读全文 »weblogic 10.3.5重置密码2013年12月26日  热度353 ℃   weblogic默认验证密码机制：如果输入错误超过5次，即使后面输入正确，也会报密码错误（这点相当坑爹啊！）   不过正好实践了下如何重置10.3.5版本的密码重置，密码验证主要是通过security/DefaultAuthenticatorInit.Ldift 来验证，更新完之后删除domain下的ldap目录里的缓存文件。   步骤如下：   将所有的应用 ......  阅读全文 »stat 函数中mode选项2013年12月18日  热度266 ℃首先看下stat函数返回结果0 dev device number of filesystem1 ino inode number2 mode file mode (type and permissions)3 nlink number of (hard) links to the file4 uid numeric user ID of file's owner5 gid numeric group ID of file's owner6 rdev the device identifier (special file ......  阅读全文 »exit与return区别2013年12月10日  热度254 ℃    平时在写程序的时候，在退出的时候都会用到exit。习惯较好的程序员会在后面跟返回值，对你的程序来说，没有区别。对使用你的程序的人或者程序来说，区别可就大了。一般来说，exit 0 可以告知你的程序的使用者：你的程序是正常结束的。如果 exit 非 0 值，那么你的程序的使用者通常会认为你的程序产生了一个错误。  ......  阅读全文 »mail sender发送带附件的邮件2013年11月25日  热度399 ℃平时工作少不了提交周报，感觉每次都需要做重复的事情，额~，可以做成自动化。说下思路吧，首先每天做的事情由txt保存下来，然后到每周的五、六、七（考虑到周末加班） 抽一天点击脚本自动生成周报，然后发送邮件。txt生成excel的就不贴了，因为每个人的情况不同，如果大家有什么需要可以像我索要。。计算日期code：......  阅读全文 »centos  yum 修改为本地源2013年09月30日  热度483 ℃公司网络实在太慢了，伤不起。将Yum改为本地的DVD光盘cd /etc/yum.repos.d/mv CentOS-Base.repo CentOS-Base.repo.bakvim  CentOS-Media.repo #更新为以下内容[c6-media]name=CentOS-$releasever - Mediabaseurl=file:///media/CentOS/gpgcheck=0enabled=1然后mkdir -p /media/CentOSmount  /dev/ ......  阅读全文 »2013-9.272013年09月27日  热度558 ℃   今天晚上去跑步，一直绕着一个貌似200多米的一个环形街道，也许是没有带手表的缘故，就想一直跑下去，没有终点的跑，也不用想什么时间该停下。直到两条腿不听使唤的时候才停下来。   整条街道上就我只剩下我，坐在马路边上望着天空，想着离开合肥，完完全全自己度过的这一年半光阴。不知道是什么让我坚持了这么久， ......  阅读全文 »perl灵活对递归目录操作2013年09月3日  热度678 ℃递归code如下#!/usr/bin/perluse strict;use warnings;sub dir_wanted {my ( $top, $code ) = @_;my $DIR;$code->($top);if ( -d $top ) {my $file;warn "Can't open directory $top:$!\n" and returnunless opendir $DIR, $top;
 ......  阅读全文 »win下