Perl 教程 之 Perl 进程管理 2
Perl 进程管理
Perl 中可以以不同的方法来创建进程。
可以使用特殊变量 $$ 或 $PROCESS_ID 来获取进程 ID。
%ENV 哈希存放了父进程,也就是shell中的环境变量,在Perl中可以修改这些变量。
exit() 通常用于退出子进程,主进程在子进程全部退出后再退出。
所有打开的句柄会在子程序中被 dup() 函数复制, 所有关闭进程所有句柄不会影响其他进程 。
system() 函数
你也可以使用 system() 函数执行 Unix 命令, 执行该命令将直接输出结果。默认情况下会送到目前Perl的STDOUT指向的地方,一般是屏幕。你也可以使用重定向运算符 > 输出到指定文件:
执行以上程序,输出结果如下:
drwxr-xr-x 3 root root 4096 Sep 14 06:46 9-14
drwxr-xr-x 4 root root 4096 Sep 13 07:54 android
-rw-r--r-- 1 root root 574 Sep 17 15:16 index.htm
drwxr-xr-x 3 544 401 4096 Jul 6 16:49 MIME-Lite-3.01
-rw-r--r-- 1 root root 71 Sep 17 15:16 test.pl
……
你需要注意命令包含环境变量如 $PATH 或 $HOME 的输出结果,如下所示:
实例
!/usr/bin/perl
$PATH = "我是 Perl 的变量";
system('echo $PATH'); # $PATH 作为 shell 环境变量
system("echo $PATH"); # $PATH 作为 Perl 的变量
system("echo \$PATH"); # 转义 $
1;
执行以上程序,输出结果如下:
/usr/local/bin:/bin:/usr/bin:/usr/local/sbin:/usr/sbin:/sbin
我是 Perl 的变量
/usr/local/bin:/bin:/usr/bin:/usr/local/sbin:/usr/sbin:/sbin