| 已有 18238 人访问 |
|
| 李卓华 ID.9128 |
| 博客(31) |
李卓华的博客
用XML::Simple解析xml文件
李卓华 2011-02-16
xml文件<?xml version="1.0"?><customer-data><customer><first_name>Frank</first_name><last_name>Sanbeans</last_name><dob>3/10</dob><email
278°/2786
人阅读/0 人点赞/0 条评论
perl监控文件夹变化
李卓华 2011-02-15
一个简单的脚本，可以监控文件夹的变化，当有新文件创建的时候，给于它可执行权限#! /usr/bin/perluse Linux::Inotify2;my $inotify = new Linux::Inotify2;$inotify->watch('/home/zhli/app/apache2/cgi-bin/', IN_MODIFY | IN_CREATE | IN_MOVED_TO, s
613°/6122
人阅读/0 人点赞/1 条评论
今天看了一下POE, 贴一段代码server:#! /usr/bin/perluse warnings;use strict;use IO::Socket;use POE qw /Wheel::ListenAccept Wheel::ReadWrite/;# 创建监听Socket及处理SessionPOE::Session->create
386°/3868
人阅读/0 人点赞/0 条评论
shell中的进程替换
李卓华 2011-01-19
在支持命名管道(FIFOs)或者'/dev/fd'的系统上可以实现Process Substitution,基本格式如下 command <(list) or command >(list) 开始list的运
497°/4979
人阅读/0 人点赞/0 条评论
随便打开chinaunix或者javaeye的某个博客，都有很多很有技术性的帖子，都有很多自己不知道的知识。。相比之下，自己知道的，了解的太少了。。。让我自己写博客，都不知道写什么。。。。哎。。。。
366°/3633
人阅读/0 人点赞/3 条评论
perl的简单调试命令
李卓华 2011-01-18
-d 说明你要以debug模式来执行这个脚本可以用‘l’命令来显示代码用b+行号来加入断点，不过断点加在这一句，其实这句还没有运行使用命令‘n’表示next，执行下一句，然后它会显示下一个可执行的语句可以使用h来获得帮助。命令‘c’表示运行到结束。
342°/3412
人阅读/0 人点赞/1 条评论
perl脚本，用来自动登录远程服务器并进行操作
李卓华 2011-01-18
用到Expect模块#! /usr/bin/perluse strict;use Expect;use LWP::UserAgent;use Data::Dumper;use Getopt::Std;my $exp;my %server_list2;my %server_need_setTraffic2;my %options=();getopts("rsf:",\%optio
495°/4959
人阅读/2 人点赞/0 条评论
一个perl脚本，记录自己工作
李卓华 2011-01-18
用来从监控服务器的页面上获取信息，用到perl的LWP, 对html的解析用了HTML::TokeParser和HTML::TreeBuilder两种方法。#! /usr/bin/perluse strict;use LWP;use Data::Dumper;use Getopt::Std;use HTML::TokeParser;use HTML::TreeBuilder;my $browser
370°/3705
人阅读/0 人点赞/0 条评论
今天年会。。。俺又有个传统节目，吉他弹唱<<戏雪>>。。。啦啦啦啦。。。。
327°/3219
人阅读/0 人点赞/6 条评论
junit4.8.1 流程跟踪
李卓华 2010-12-08
JunitCore.runMain call "Result result= run(classes.toArray(new Class[0]));" -- classes是要被测试的类组成的List JunitCore.run(Class<?>... classes) JunitCore.run(Request.classes(defaultComputer(),
409°/4097
人阅读/0 人点赞/0 条评论