天行健，君子以自强不息！
发布时间：2013-09-25 17:52:54
一、使用 Mail::Sender模块先申请一个163的邮箱;#!/usr/bin/perluse warnings;use strict;use Mail::Sender;my $sender = new Mail::Sender{ smtp => 'smtp.163.com', from => 'your_mail@163.com", auth => "LOGIN", authid => "your.........【阅读全文】
发布时间：2013-09-02 17:59:54
perl pack和unpack的使用方法Pack 与unpack使用说明： pack可视为将一系列的片段的数值打包在一起，可用于对dev档案、socket、memory的读写，因为这些需要一块完整的memory，而且需要事先打包成特定格式；而unpack可以视为将将这些完整的 memory切割计算，取得我们所需要各部分的Variable。例子如下： .........【阅读全文】
发布时间：2013-09-02 17:58:03
函数名pack调用语法formatstr = pack(packformat, list);解说把一个列表或数组.........【阅读全文】
发布时间：2013-09-02 16:52:36
第一种办法，最简单的，调用 shell： $ip = `ifconfig eth0|grep -oE '([0-9]{1,3}\.?){4}'|head -n 1`;注：这里输入是固定的，所以简单的 [0-9]{1,3} 了，如果是在 web 程序等地方验证 ip，需要更严谨！或者 $ip = `ifconfig eth0|awk -F: '/inet addr/{split($2,a," ");print a[1];exit}.........【阅读全文】
发布时间：2013-07-21 10:09:27
1. 闲言少述，先上代码，搭建Http server#!/usr/bin perl############################################################################## \File# HTTPServer.pl# \Brief# Setting the http server# \Author# Hank###################################################.........【阅读全文】
