
Perl
文章平均质量分 59
firstephen
这个作者很懒,什么都没留下…
展开
-
linux下perl中的kill和waitpid
kill INT, $pid当$pid所在进程已经结束时返回错误作为kill的返回。但不返回错误不代表终止$pid进程成功,如果刚好在kill时$pid位于前台(有终端相连,并没挂起,如:$pid进程里面没sleep)那么$pid被杀掉,否则$pid在后台不能被终止。在PERL中,如下使用非阻塞waitpid:use POSIX ":sys_wait_h";rt = waitpid($原创 2013-05-02 18:40:15 · 3721 阅读 · 0 评论 -
带文件得form上传perl cgi脚本
#! /usr/bin/perl -wuse strict;use Fcntl; # C fcntl.h得对应模块,这里会使用其中定义得O_xx等常量。use CGI;#定义一些系统控制常量use constant RECEIVE_FILE_PATH => '/Library/WebServer/Received';use constant BUFFER_原创 2013-07-25 00:48:03 · 1141 阅读 · 0 评论 -
从一个目录中返回n个随机文件名或子目录名(可用于遍历一次文本,返回n行随机的文本行)
下面code假设要从Users/stephenzou目录返回随机两个文件名。#! /usr/bin/perl -wuse constant TARGET => '/Users/stephenzou';my $i = 0;my $k = 0;my $file_1 ='';my $file_2 = '';local *DIR;opendir DIR, TARGET or die原创 2013-08-11 11:44:20 · 668 阅读 · 0 评论 -
OS X 10.8 安装perl GD::Graph
想给自己的应用加个动态生成pie chart的功能,研究后发现GD::Graph这个库能满足需求,OS X 1.8系统perl库里面默认没有,决定自己安装来用。在家里折腾了一整晚上,前前后后遇到n多依赖方面的问题,外加有的库所在服务器被"墙"了,所以搞得很崩溃。第二天到单位继续弄了几小时终于安装成功,这里简单记录一下。 GD::Graph依赖GD和GD::Text库,而GD库的安装又原创 2013-10-15 14:24:24 · 1974 阅读 · 0 评论