idv2

共 4 页, « 第一页 ... « 1 2 3 [4]

最近在用 perl 写一个Linux下的多进程守护进程，因此研究了一下Linux下的进程相关的知识。 现将心得总结一下。主要是关于进程创建和回收。

阅读全文 »

前面这篇文章简单地阐述了用Perl创建守护进程(daemon)的方法。 实际上，创建一个多进程的守护进程需要注意很多事情。

阅读全文 »

调试 Perl 程序时使用最频繁的就是 print 语句了，不过它只能输出普通变量的内容， 而不能输出数组和哈希。使用 Data::Dumper 模块则可以输出数组和哈希等复杂变量。

#!/usr/bin/perl
use Data::Dumper;
my $hashref = { name=>'charlee', age=>25, gender=>'male', interest=>[ 'computer', 'movie', 'cooking' ] };
print Data::Dumper::Dumper($hashref);

注意Dumper函数的参数为引用。输出结果为：

$VAR1 = {
          'name' => 'charlee',
          'interest' => [
                          'computer',
                          'movie',
                          'cooking'
                        ],
          'age' => 25,
          'gender' => 'male'
        };

Devel::SmallProf 是个很好用的模块，可以方便地测量出代码每一行的执行时间，以便进一步优化。

例如以下程序，文件名为 prof_sample.pl。

#!/usr/bin/perl
my $str = "0";
for (my $i = 0; $i < 100; $i++) {
  $str =~ s/\d+/($&+1)/e;
  print $str."\n";
}

该程序的功能是输出整数 1 到 100。当然实际写程序时可不要用这么低效率的方法。 安装 Devel::SmallProf 之后我们来测量一下它每一行代码的执行时间。

perl -d:SmallProf prof_sample.pl

执行之后会在当前目录下生成一个 smallprof.out 文件，其内容如下：

           ================ SmallProf version 1.15 ================
                           Profile of prof_sample.pl                   Page 1
       =================================================================
    count wall tm  cpu time line
        0 0.000000 0.000000     1:#!/usr/bin/perl
        0 0.000000 0.000000     2:
        1 0.000006 0.000000     3:my $str = "0";
      101 0.006418 0.010000     4:for (my $i = 0; $i < 100; $i++) {
      200 0.002581 0.000000     5: $str =~ s/\d+/($&+1)/e;
      100 0.001509 0.000000     6: print $str."\n";
        1 0.000003 0.000000     7:}

前三列的数字分别为执行次数、消耗时间、消耗CPU时间。

如果你的程序使用 use 语句引用了其他模块，那么所有被引用的程序都将被分析，生成一个长长的报告。这时可以使用下面的命令来迅速找到耗时最长的命令。

sort -k 2nr,2 smallprof.out | less

今天客户发过来一个bug报告，说发送邮件时内容中书写はぁ～，收信时会显示成はち。 懂日文的朋友大概能明白，感叹词はぁ～怎么就变成了蜜蜂はち呢？

后来找到了原因。我们的邮件系统是用 Perl 写成的。其中有一个空格删除功能， 就是在显示时将邮件中的全角空格全部删除，其实现方法如下：

$body =~ s/　//g;

看起来似乎没有问题，但就是这条语句将はぁ～变成了はち。日文 euc-jp 编码下， 这几个字符串的编码如下：

ぁ的后半个字符和～的前半个字符恰好都是 A1，所以就被删除了，于是就出现了有意思的乱码现象。 修改方法也比较简单，只要正确识别出每个汉字的起止位置即可。

my $twoBytes   = '[\x8E\xA1-\xFE][\xA1-\xFE]';
my $threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';
while($body =~ s/\G(($twoBytes|$threeBytes|[\x00-\x7F])+?)　/$1/g){};  # 识别汉字，如果汉字后面有空格则删除
$body =~ s/^　//g;        # 最后删除最开始处的全角空格

本文参考了 mod_perl 的官方文档之一， 但并不是原文档的翻译。

阅读全文 »

如何在Linux下创建这样一个程序，执行之后返回shell，但程序本身驻留在内存之中继续执行？其实很简单，创建一个子进程，然后父进程结束即可。例如下面的Perl程序：

#!/usr/bin/perl
exit if fork();       # 创建子进程，然后父进程退出
while (1) { sleep 1; }       # 测试用死循环

不过需要考虑到一点，守护进程通常在系统启动时以root身份启动，但是由于安全问题，通常并不以root身份运行。这一点使用perl如何实现呢？可以使用下面的 sudo 函数。

sub sudo {
    my ($user, $group) = @_;
    my $uid = (getpwnam($user))[2];
    my $gid = (getgrnam($group))[2];
    ($(, $)) = ($gid, "$gid $gid");
    ($<, $>) = ($uid, $uid);
}

所以，一个基本的守护程序应当这样写：（sudo函数代码省略）

#!/usr/bin/perl
&sudo("myuser", "mygroup");     # myuser、mygroup为启动守护进程的用户和组
exit if fork();
while (1) { sleep 1; }

安装环境：win32，ActivePerl 5.8

C:\> ppm
ppm> install http://theoryx5.uwinnipeg.ca/ppms/mod_perl.ppd

ActivePerl 5.8用的PPM packages可以在这个网站下载：

• http://theoryx5.uwinnipeg.ca/ppms/
• http://ppm.activestate.com/PPMPackages/zips/

可以利用 repo 命令添加repository。

ppm> repo add "uwinnipeg Perl 5.8 repository" http://theoryx5.uwinnipeg.ca/cgi-bin/ppmserver?urn:/PPMServer58

1. 安装Apache ( http://httpd.apache.org) )和 ActiveState Perl (http://www.activestate.com/ )。

2. 安装mod_perl。

ppm install http://theoryx5.uwinnipeg.ca/ppms/mod_perl.ppd

安装完毕之后会提示输入Apache的路径，输入类似于 D:/Apache2/modules。

3. 配置mod_perl。修改httpd.conf，增加以下几行：

LoadFile "C:/Perl/bin/perl58.dll"
LoadModule perl_module modules/mod_perl.so

<Files *.cgi>
    SetHandler perl-script
    PerlHandler ModPerl::PerlRun
    Options +ExecCGI
</Files>

4. 重新启动Apache。

2009/9/27更新
原来的安装地址http://theoryx5.uwinnipeg.ca/ppmpackages/mod_perl.ppd已经变成了ActivePerl 6.xx的地址， 而本文使用的是ActivePerl 5.xx，地址修改为http://theoryx5.uwinnipeg.ca/ppms/mod_perl.ppd。

共 4 页, « 第一页 ... « 1 2 3 [4]