最近阅读 PVE 源码发现一处源码这样使用了 fork() 方法: $spid = fork(); if (!defined ($spid)) { die “can’t put server into background - fork failed”; } elsif ($spid) { # parent exit (0); } 自己写示例发现这种方法可以使程序进入后台执行状

最近阅读 PVE 源码发现一处源码这样使用了 fork() 方法:

1
2
3
4
5
6
$spid = fork();
if (!defined ($spid)) {
die "can't put server into background - fork failed";
} elsif ($spid) { # parent
exit (0);
}

自己写示例发现这种方法可以使程序进入后台执行状态,大概原理是 fork 子进程,退出主进程,使得程序被 1 号父进程接管,在终端表现则是进入了后台执行状态

以下是实例代码:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl

sub mainThread() {
print "---------- Main Thread! ------------\n";
$spid = fork();
if (!defined ($spid)) {
die "can't put server into background - fork failed";
} elsif ($spid) { # parent
exit (0);
}
for(;;)
{
print "Hello, world in main thread!\n";
sleep 1;
}
}

mainThread();

看下进程状态:

https://imagehost-cdn.frytea.com/images/2021/08/26/_1629948977368e83558ffb3dfcdb2.png

退出程序则是指定 PID 即可:

1
$ kill -9 3300

参考文献