Làm cách nào để lấy PID của quá trình sinh ra với chức năng hệ thống của Perl?

Question

Tôi đang viết một tập lệnh Perl (nói script.pl) gọi một tập lệnh khác newscript.pl. Tôi muốn nhận được PID của cả hai kịch bản chỉ trong script.pl. Tôi có thể lấy PID của script.pl bằng cách sử dụng mã sau

my $pid = Unix::PID->new(); 
my @p = $pid->get_pidof($pid->get_command($$), 1); 

Sau này tôi gọi system để thực hiện newscript.pl

system("perl newscript.pl"); 

Tôi muốn chụp các PID được tạo ra bởi newscript.pl này trong script.pl.

Answer 1

Đến thời điểm system trả về, quá trình sinh sản sẽ đã thoát, để lại pid của nó làm tham chiếu lịch sử thú vị — hữu ích cho phân tích nhật ký, ví dụ.

system LIST
system PROGRAM LIST

Liệu chính xác những điều tương tự như exec LIST, ngoại trừ một fork được thực hiện đầu tiên và quá trình cha mẹ chờ cho quá trình con để thoát & hellip;

Nếu bạn muốn PID của cả hai script.pl và newscript.pl, fork và quản lý cuộc đời của mình cho mình. Với thông tin cụ thể hơn về sự cố bạn ’ giải quyết lại, chúng tôi có thể cung cấp cho bạn các đề xuất cụ thể hơn.

---

Để chặn trường hợp khác của một chương trình, một kỹ thuật phổ biến là sử dụng hệ điều hành ’ s cơ sở cho hợp tác xã khóa: lúc khởi động, nỗ lực để khóa một tập tin nhất định. Nếu thành công, chương trình của bạn biết nó chỉ là ’ s. Nếu không, một quy trình khác đã có khóa, vì vậy quy trình mới sẽ thoát. Xem ví dụ bên dưới.

#! /usr/bin/env perl 

use strict; 
use warnings; 

use Fcntl qw/ :flock /; 
use File::Basename; 
use POSIX qw/ strftime /; 

$0 = basename $0; 

my $LOCK = "$ENV{HOME}/.lock-$0"; 

sub logmsg { 
    my($msg) = @_; 
    my $t = strftime "%F %T", localtime time; 
    warn "$0: $t - $$ - $msg\n"; 
} 

sub take_lock { 
    open my $fh, ">", $LOCK or die "$0: open $LOCK: $!"; 

    unless (flock $fh, LOCK_EX | LOCK_NB) { 
    logmsg "failed to lock $LOCK; exiting."; 
    exit 1; 
    } 

    $fh; 
} 

my $token = take_lock; 
logmsg "processing..."; 
sleep 2 * 60; 
logmsg "done."; 

Lưu ý rằng bạn phải giữ filehandle trở về từ take_lock mở trong khi điều khiển là bên critical section của bạn. Mã trên xử lý nó như một mã thông báo mờ đục. Khi chương trình của bạn thoát ra, Perl sẽ đóng filehandle, tự động giải phóng khóa. Những gì bạn don ’ t muốn làm là gọi take_lock trong ngữ cảnh void vì điều đó sẽ hủy bỏ khóa của bạn.

Answer 2

Số quy trình của quy trình hiện tại là $$. Sử dụng open3 thay vì system để nhận được số quy trình của quy trình con.