मैं पर्ल के सिस्टम फ़ंक्शन के साथ उत्पन्न प्रक्रिया की पीआईडी ​​कैसे प्राप्त करूं?

Question

मैं एक पर्ल स्क्रिप्ट लिख रहा हूं (script.pl कहें) जो एक और स्क्रिप्ट newscript.pl कहता है। मैं केवल script.pl में दोनों स्क्रिप्ट के पीआईडी ​​प्राप्त करना चाहता हूं। मैं निम्नलिखित कोड

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 द्वारा उत्पन्न कैप्चर करना चाहते द्वारा script.pl की पीआईडी ​​मिल सकती है।

Answer 1

system रिटर्न के समय तक, उत्पन्न प्रक्रिया पहले से ही निकल जाएगी, उदाहरण के लिए लॉग विश्लेषण के लिए उपयोगी एक दिलचस्प ऐतिहासिक संदर्भ — के रूप में अपने पिड को छोड़ दिया जाएगा।

system LIST
system PROGRAM LIST

वास्तव में सिवाय इसके कि एक fork किया जाता है पहले और माता पिता प्रक्रिया बच्चे की प्रक्रिया के लिए इंतजार कर रहा है है & hellip बाहर निकलने के लिए, exec LIST के रूप में एक ही बात करता है;

तुम दोनों script.pl और newscript.pl, fork की पीआईडी ​​चाहते हैं और अपने आप को अपने जीवनकाल का प्रबंधन करते हैं। समस्या के बारे में अधिक विशिष्ट जानकारी के साथ आप ’ फिर से निपटने के साथ, हम आपको अधिक विशिष्ट सुझाव दे सकते हैं।

---

एक कार्यक्रम के अन्य उदाहरण ब्लॉक करने के लिए एक सामान्य तकनीक सहकारी लॉकिंग के लिए ऑपरेटिंग सिस्टम ’ रों सुविधा का उपयोग करने के लिए है: स्टार्टअप पर, एक निश्चित फ़ाइल लॉक करने के लिए प्रयास करते हैं। यदि सफल हो, तो आपका प्रोग्राम इसे ’ केवल एक ही जानता है। अन्यथा, एक और प्रक्रिया में पहले से ही ताला है, इसलिए नई प्रक्रिया निकलती है। उदाहरण के लिए नीचे देखें।

#! /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."; 

ध्यान दें कि आप filehandle रखना चाहिए take_lock खुला से लौटे जबकि नियंत्रण अपने critical section के अंदर है। उपरोक्त कोड इसे एक अपारदर्शी टोकन के रूप में मानता है। जब आपका प्रोग्राम निकलता है, तो पर्ल फ़ाइलहेडल बंद कर देता है, जो स्वचालित रूप से लॉक जारी करता है। आप क्या करते हैं ’ टी करना चाहते हैं take_lock शून्य संदर्भ में कॉल करें क्योंकि यह आपके लॉक को त्याग देगा।

Answer 2

वर्तमान प्रक्रिया की प्रक्रिया संख्या $$ में है। बाल प्रक्रिया की प्रक्रिया संख्या प्राप्त करने के लिए system के बजाय open3 का उपयोग करें।