Perl 进程管理

Perl 中你可以以不同的方法来创建进程。

本教程将讨论一些进程的管理方法。

  • 你可以使用特殊变量 $$$PROCESS_ID 来获取进程 ID。

  • %ENV 哈希存放了父进程,也就是shell中的环境变量,在Perl中可以修改这些变量。

  • exit() 通常用于退出子进程,主进程在子进程全部退出后再退出。

  • 所有打开的句柄会在子程序中被 dup() 函数复制, 所有关闭进程所有句柄不会影响其他进程 。

反引号运算符

使用反引号运算符可以很容易的执行 Unix 命令。你可以在反引号中插入一些简单的命令。命令执行后将返回结果:

  1. #!/usr/bin/perl
  2. @files = `ls -l`;
  3. foreach $file (@files){
  4. print $file;
  5. }
  6. 1;

执行以上程序,输出结果如下:

  1. drwxr-xr-x 3 root root 4096 Sep 14 06:46 9-14
  2. drwxr-xr-x 4 root root 4096 Sep 13 07:54 android
  3. -rw-r--r-- 1 root root 574 Sep 17 15:16 index.htm
  4. drwxr-xr-x 3 544 401 4096 Jul 6 16:49 MIME-Lite-3.01
  5. -rw-r--r-- 1 root root 71 Sep 17 15:16 test.pl
  6. ……

system() 函数

你也可以使用 system() 函数执行 Unix 命令, 执行该命令将直接输出结果。默认情况下会送到目前Perl的STDOUT指向的地方,一般是屏幕。你也可以使用重定向运算符 > 输出到指定文件:

执行以上程序,输出结果如下:

  1. drwxr-xr-x 3 root root 4096 Sep 14 06:46 9-14
  2. drwxr-xr-x 4 root root 4096 Sep 13 07:54 android
  3. -rw-r--r-- 1 root root 574 Sep 17 15:16 index.htm
  4. drwxr-xr-x 3 544 401 4096 Jul 6 16:49 MIME-Lite-3.01
  5. -rw-r--r-- 1 root root 71 Sep 17 15:16 test.pl
  6. ……

你需要注意命令包含环境变量如 $PATH 或 $HOME 的输出结果,如下所示:

  1. #!/usr/bin/perl
  2. $PATH = "我是 Perl 的变量";
  3. system('echo $PATH'); # $PATH 作为 shell 环境变量
  4. system("echo $PATH"); # $PATH 作为 Perl 的变量
  5. system("echo \$PATH"); # 转义 $
  6. 1;

执行以上程序,输出结果如下:

  1. /usr/local/bin:/bin:/usr/bin:/usr/local/sbin:/usr/sbin:/sbin
  2. 我是 Perl 的变量
  3. /usr/local/bin:/bin:/usr/bin:/usr/local/sbin:/usr/sbin:/sbin

fork() 函数

Perl fork() 函数用于创建一个新进程。

在父进程中返回子进程的PID,在子进程中返回0。如果发生错误(比如,内存不足)返回undef,并将$!设为对应的错误信息。

fork 可以和 exec 配合使用。exec 函数执行完引号中的命令后进程即结束。

实例

  1. #!/usr/bin/perl
  2. if(!defined($pid = fork())) {
  3. # fork 发生错误返回 undef
  4. die "无法创建子进程: $!";
  5. }elsif ($pid == 0) {
  6. print "通过子进程输出\n";
  7. exec("date") || die "无法输出日期: $!";
  8. } else {
  9. # 在父进程中
  10. print "通过父进程输出\n";
  11. $ret = waitpid($pid, 0);
  12. print "完成的进程ID: $ret\n";
  13. }
  14. 1;

执行以上程序,输出结果如下:

  1. 通过父进程输出
  2. 通过子进程输出
  3. 2016 619 星期日 222114 CST
  4. 完成的进程ID: 47117

如果进程退出时,会向父进程发送一个CHLD的信号后,就会变成僵死的进程,需要父进程使用wait和waitpid来终止。当然,也可以设置$SIG{CHLD}为IGNORG:

  1. #!/usr/bin/perl
  2. local $SIG{CHLD} = "IGNORE";
  3. if(!defined($pid = fork())) {
  4. # fork 发生错误返回 undef
  5. die "无法创建子进程: $!";
  6. }elsif ($pid == 0) {
  7. print "通过子进程输出\n";
  8. exec("date") || die "无法输出日期: $!";
  9. } else {
  10. # 在父进程中
  11. print "通过父进程输出\n";
  12. $ret = waitpid($pid, 0);
  13. print "完成的进程ID: $ret\n";
  14. }
  15. 1;

执行以上程序,输出结果如下:

  1. 通过父进程输出
  2. 通过子进程输出
  3. 2016 619 星期日 223056 CST
  4. 完成的进程ID: -1

Kill 函数

Perl kill('signal', (Process List))给一组进程发送信号。signal是发送的数字信号,9为杀掉进程。

首先看看linux中的常用信号,见如下列表:

  1. 信号名 标注 解释
  2. ————————————————————————————————————————————————————————————
  3. HUP 1 A 检测到挂起
  4. INT 2 A 来自键盘的中断
  5. QUIT 3 A 来自键盘的停止
  6. ILL 4 A 非法指令
  7. ABRT 6 C 失败
  8. FPE 8 C 浮点异常
  9. KILL 9 AF 终端信号
  10. USR1 10 A 用户定义的信号1
  11. SEGV 11 C 非法内存访问
  12. USR2 12 A 用户定义的信号2
  13. PIPE 13 A 写往没有读取者的管道
  14. ALRM 14 A 来自闹钟的定时器信号
  15. TERM 15 A 终端信号
  16. CHLD 17 B 子进程终止
  17. CONT 18 E 如果被停止则继续
  18. STOP 19 DF 停止进程
  19. TSTP 20 D tty键入的停止命令
  20. TTIN 21 D 对后台进程的tty输入
  21. TTOU 22 D 对后台进程的tty输出

以下实例向进程 104 和 102 发送 SIGINT 信号:

  1. #!/usr/bin/perl
  2. kill('INT', 104, 102);
  3. 1;