Perl 教程 之 Perl 进程管理 2

简介: Perl教程介绍了进程管理,包括获取进程ID、访问环境变量 `%ENV`、使用`exit()`退出子进程以及`system()`函数执行Unix命令。`system()`函数的输出默认发送到STDOUT,可以通过重定向运算符>`输出到文件。示例展示了`system()`如何处理环境变量,如 `$PATH`,在不同引用方式下的不同结果。

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

目录
相关文章
|
4天前
|
Shell Linux Perl
Perl 教程 之 Perl 进程管理 5
Perl教程介绍了进程管理,包括使用$$或$PROCESS_ID获取PID,通过%ENV访问环境变量,exit()退出子进程。子进程继承打开的句柄,不受父进程影响。Perl的kill函数用于向进程发送信号,如SIGINT(值2)用于中断。示例展示了如何向进程104和102发送SIGINT信号。
17 0
|
4天前
|
索引 Perl
|
4天前
|
Perl
|
4天前
|
Perl
|
4天前
|
Shell Perl
Perl 教程 之 Perl 进程管理 6
Perl教程介绍了进程管理,包括通过$$或$PROCESS_ID获取PID,使用%ENV访问环境变量,exit()用于子进程退出。子进程继承打开的句柄,不影响父进程。此外,POD文档在Perl中用于嵌入简单文档,以=head1开始,=cut结束,Perl会忽略这些文档。示例展示了在脚本中添加POD文档的基本结构。
13 0
|
4天前
|
存储 Shell Perl
Perl 教程 之 Perl 进程管理 4
Perl教程介绍了进程管理,包括使用$$或$PROCESS_ID获取PID,%ENV存储环境变量,exit()退出子进程,fork()创建新进程。在父进程返回子进程PID,在子进程返回0。fork与exec配合执行命令。示例展示了父进程如何等待子进程结束。当子进程变为僵死状态时,父进程需使用wait或waitpid终止,或设置$SIG{CHLD}为"IGNORE"。
18 1
|
4天前
|
Shell Perl
Perl 教程 之 Perl 进程管理 3
Perl教程介绍了进程管理,包括获取进程ID、访问环境变量、退出进程及句柄影响。`fork()`函数创建新进程,返回子进程PID或在出错时返回`undef`。`exec()`在子进程中执行命令后结束。示例代码演示了`fork()`和`exec()`配合使用,展示父进程和子进程的不同输出。
12 1
|
4天前
|
Perl
|
4天前
|
Perl
|
4天前
|
Perl