📅 最后修改于: 2020-11-02 03:52:59 🧑 作者: Mango
您可以按照各种要求使用Perl来创建新流程。本教程将列出创建和管理Perl流程的一些重要且最常用的方法。
您可以使用特殊变量$$或$ PROCESS_ID来获取当前进程ID。
使用任何上述方法创建的每个进程都使用％ENV变量维护其自己的虚拟环境。
exit()函数始终仅退出执行该函数的子进程，除非所有正在运行的子进程均已退出，否则整个主进程都不会退出。
所有打开的句柄在子进程中都是dup()-ed，因此在一个进程中关闭任何句柄不会影响其他进程。
执行任何Unix命令的最简单方法是使用backstick运算符。您只需将命令放入backstick运算符，这将导致命令执行并返回其结果，该结果可以存储如下：
#!/usr/bin/perl
@files = `ls -l`;
foreach $file (@files) {
print $file;
}
1;
执行以上代码后，它将列出当前目录中可用的所有文件和目录-
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
drwx------ 2 root root 4096 Sep 17 15:11 vAtrJdy
您还可以使用system()函数执行任何Unix命令，其输出将进入perl脚本的输出。默认情况下，它是屏幕，即STDOUT，但是您可以使用重定向运算符将其重定向到任何文件>-
#!/usr/bin/perl
system( "ls -l")
1;
当执行上述代码时，它列出了当前目录中可用的所有文件和目录-
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
drwx------ 2 root root 4096 Sep 17 15:11 vAtrJdy
当命令包含诸如$ PATH或$ HOME之类的外壳环境变量时，请当心。尝试以下三种情况-
#!/usr/bin/perl
$PATH = "I am Perl Variable";
system('echo $PATH'); # Treats $PATH as shell variable
system("echo $PATH"); # Treats $PATH as Perl variable
system("echo \$PATH"); # Escaping $ works.
1;
执行上述代码时，根据外壳变量$ PATH中的设置，它会产生以下结果。
/usr/local/bin:/bin:/usr/bin:/usr/local/sbin:/usr/sbin:/sbin
I am Perl Variable
/usr/local/bin:/bin:/usr/bin:/usr/local/sbin:/usr/sbin:/sbin
Perl提供了一个fork()函数，该函数对应于同名的Unix系统调用。在大多数使用fork()系统调用的类Unix平台上，Perl的fork()只是对其进行调用。在某些平台(例如Windows)上，不能使用fork()系统调用，可以构建Perl在解释器级别上模拟fork()。
fork()函数用于克隆当前进程。该调用将在同一点创建一个运行相同程序的新进程。它将子pid返回到父进程，将0返回到子进程，如果fork不成功，则返回undef。
您可以在进程中使用exec()函数启动请求的可执行文件，该可执行文件将在单独的进程区域中执行，并且exec()将等待其完成，然后以与该进程相同的退出状态退出。
#!/usr/bin/perl
if(!defined($pid = fork())) {
# fork returned undef, so unsuccessful
die "Cannot fork a child: $!";
} elsif ($pid == 0) {
print "Printed by child process\n";
exec("date") || die "can't exec date: $!";
} else {
# fork returned 0 nor undef
# so this branch is parent
print "Printed by parent process\n";
$ret = waitpid($pid, 0);
print "Completed process id: $ret\n";
}
1;
执行以上代码后，将产生以下结果-
Printed by parent process
Printed by child process
Tue Sep 17 15:41:08 CDT 2013
Completed process id: 17777
可以将wait()和waitpid()作为fork()返回的伪进程ID进行传递。这些调用将适当地等待伪进程的终止并返回其状态。如果使用waitpid()函数在没有等待孩子的情况下进行分叉，则会堆积僵尸。在Unix系统上，可以通过将$ SIG {CHLD}设置为“ IGNORE”来避免这种情况，如下所示：
#!/usr/bin/perl
local $SIG{CHLD} = "IGNORE";
if(!defined($pid = fork())) {
# fork returned undef, so unsuccessful
die "Cannot fork a child: $!";
} elsif ($pid == 0) {
print "Printed by child process\n";
exec("date") || die "can't exec date: $!";
} else {
# fork returned 0 nor undef
# so this branch is parent
print "Printed by parent process\n";
$ret = waitpid($pid, 0);
print "Completed process id: $ret\n";
}
1;
执行以上代码后，将产生以下结果-
Printed by parent process
Printed by child process
Tue Sep 17 15:44:07 CDT 2013
Completed process id: -1
Perl kill(’KILL’，(Process List))函数可用于通过将fork()返回的ID传递给伪进程来终止它。
请注意，在伪process()上使用kill(’KILL’，(Process List))通常可能导致内存泄漏，因为实现伪进程的线程没有机会清理其资源。
您可以使用kill()函数将任何其他信号发送到目标进程，例如，下面的命令会将SIGINT发送到进程ID 104和102-
#!/usr/bin/perl
kill('INT', 104, 102);
1;