我将尝试在perl中运行一个后台进程。我创建了一个子进程,用于调用另一个perl脚本。我想要和这个子进程并行地运行几行代码。当子进程完成后,我想要打印一行代码。
主脚本
#!/usr/bin/perl
$|=1;
print "before the child process\n";
my $pid = fork();
if (defined $pid)
{
system("perl testing.pl");
}
print "before wait command\n";
wait();
print "after 20 secs of waiting\n";
testing.pl
#!/usr/bin/perl
print "inside testing\n";
sleep(20);
期望输出
子进程之前 等待命令之前 (应该等待20秒然后打印) 等待20秒后
system
调用之后的所有内容都将由父进程和子进程执行。 - Mark Reed0
是一个*defined
*值。 - Alan Haggai Alaviif
分支没有包含exit
,所以在父进程和子进程中都会执行其后的代码。 - Mark Reed