मैं बाहरी विंडोज कमांड कैसे निष्पादित कर सकता हूं और तुरंत पर्ल में वापस आ सकता हूं?

Question

मैंने फोर्क() के साथ सिस्टम() का उपयोग करने का प्रयास किया है, निष्पादन() की कोशिश की है, और अभी भी मुझे जो चाहिए वह नहीं मिल रहा है।

मैं एक पर्ल स्क्रिप्ट लिखना चाहता हूं जो निष्पादित करता है, मान लीजिए, पंक्ति में 5 बार एक अलग पर्ल स्क्रिप्ट (इसे विभिन्न पैरामीटर मान भेजना), लेकिन यह एक साथ चल रहा है। मुझे लगता है मैं एक .pm फ़ाइल में मेरी स्क्रिप्ट कर देते हैं और इसे संदर्भ लेकिन मैं माता पिता के बच्चे स्क्रिप्ट स्वतंत्र रखना चाहते हैं सकता है ...

• प्रणाली() काम करता है, लेकिन लगातार आदेशों को निष्पादित करता है (बनाता है भावना दस्तावेज़ के अनुसार)
• कार्यकारी() काम नहीं करता है - यह केवल कार्यान्वित पहली विधि (प्रति डॉक समझ में आता है)
• मैं एक कांटा() बच्चे पर्ल स्क्रिप्ट को जोड़ा गया और फिर प्रणाली का उपयोग करने की कोशिश की ()
• यह या तो काम नहीं करता था।
• बैकटिक आदेश 'दस्तावेज कहते हैं कि यह प्रणाली() के रूप में ही काम करता है ...

वहाँ पर्ल (WindowsXP का उपयोग कर im) में एक आसान तरीका एक प्रक्रिया पर अमल, और नहीं के बारे में परवाह नहीं है मूल्यों या आंखों को वापस करें और केवल मूल लिपि की अगली पंक्ति में जारी रखें?

Answer 1

विंडोज़ पर, आप सिस्टम, आईआईआरसी को सुपर-गुप्त 1 ध्वज दे सकते हैं।

system 1, @cmd; 

perlmonks पर इस प्रश्न के लिए एक त्वरित गूगल खोज देता है: http://www.perlmonks.org/?node_id=639814

आशा है कि मदद करता है।

Answer 2

आपको माता-पिता में फोर्क करने की आवश्यकता है, फिर नई प्रक्रिया में निष्पादित करें। यह इस तरह से चला जाता है, एक संभालने मूल स्क्रिप्ट है, और बी एक आप 5 बार क्या करना चाहते है:

   A1 
fork in A1 -> A1 A2 
exec B in A2 -> A1 B2 
fork in A1 -> A1 A3 B2 
exec B in A3 -> A1 B3 B2 

आदि

Answer 3

आप इसे इस (मूल में कांटा की तरह कर सकते हैं, कार्यकारी बच्चे में):

कि exec $cmd unless fork

for my $cmd qw(command1 command2 command3) { 
     exec $cmd unless fork 
} 

तरह से काम करता है यह है कि fork (प्रक्रिया आईडी) माता-पिता में एक सही मूल्य वापस आ जाएगी और बच्चे में एक झूठी मान प्रदान करेंगे, इस प्रकार exec $cmd केवल तभी fork चलाने हो जाता है झूठा लौटाता है (ए का, बच्चे में)।

या आप इस प्रक्रिया पर नजर रखना चाहते हैं के रूप में यह समवर्ती चलाता है:

my @procs; 

for my $cmd qw(cmd1 cmd2 cmd3) { 

    open my $handle, '-|', $cmd or die $!; 

    push @procs, $handle; 
} 

तो आप @procs का एक तत्व से पढ़ सकते हैं अगर आप की जरूरत है।

या Forks::Super जैसे कई सीपीए मॉड्यूल में से एक को देखें जो कांटा प्रबंधन के विवरण को संभालते हैं।

Answer 4

इस मॉड्यूल के लिए एक मॉड्यूल अधिक है। नई प्रक्रिया बनाने के लिए आप fork और नई प्रक्रिया में कमांड चलाने के लिए exec चाहते हैं।पांच कमांड चलाने के लिए, आपको कुछ चाहिए:

for (my $i=0; $i<5; $i++) { 
    if (fork() == 0) { 
     exec($command[$i]); # runs command, doesn't return 
    } 
} 

Answer 5

एक बहुत हल्का दृष्टिकोण।

विंडोज:

foreach my $cmd (@cmds) 
{ 
    `start $cmd`; 
} 

यूनिक्स:

foreach my $cmd (@cmds) 
{ 
    `$cmd &`; 
}