我正在编写一个 Perl 脚本 (称为script.pl
),它调用另一个脚本 newscript.pl
。我想在 script.pl
中仅获取这两个脚本的 PID。可以使用以下代码获取 script.pl
的 PID:
my $pid = Unix::PID->new();
my @p = $pid->get_pidof( $pid->get_command($$), 1 );
在此之后,我调用
system
来执行newscript.pl
。system("perl newscript.pl");
我希望能在script.pl中获取newscript.pl生成的PID。
flock()
。use Fcntl qw(:flock); flock ($lockfd, LOCK_NB|LOCK_EX) or die "Same script already going"; # ...
请注意,$lockfd是文件描述符而不是文件名(您必须在flock之前打开它)。 - Dallaylaen