发布时间：2014-01-23 14:06:53
最近使用xml进行通讯，使用自定义的协议，最先发送xml文件的长度，然后是xml文件。使用perl发送一个整数还是比较麻烦的，这和python一样，所以python 3才有了bytes字节类型。use IO::Socket::INET;# auto-flush on socket$| = 1;# create a connecting socketmy $socket = new IO::Socket::INET ( &nb.........【阅读全文】
发布时间：2014-01-03 15:26:20
最近一直在写webmin的模块，发现webmin不好调试，只好使用syslog。use Sys::Syslog; # all except setlogsock()use Sys::Syslog qw( :DEFAULT setlogsock);my $remotehos.........【阅读全文】
发布时间：2014-01-02 11:16:23
删除一个ip地址my $strTemp = "";open(FILE,"/etc/steelport/round-robin.txt");while(<FILE>){ if(/192.168.9.196/) { .........【阅读全文】
发布时间：2013-12-11 16:51:59
perl语言使用CPAN安装模块# apt-get install libdatetime-perl libdbi-perl libdbd-mysql-perl \libclass-autouse-perl libmd5-perl libdigest-sha1-perl \libhtml-template-perl libimage-size-perl libmime-lite-perl \libmime-perl libcompress-zlib-perl libnet-dns-perl \liburi-perl libhtml-tagset-perl libhtm.........【阅读全文】
