पर्ल कमांड लाइन

Question

मैं Windows एक पर्ल स्क्रिप्ट है कि एक निष्पादन कॉल चल रहा है में हूँ बाहर निकलने नहीं दुभाषिया:

$command = "$path_to_exe -i $dir -o $results"; 
my $pid = fork(); 

    if (!$pid) { 
     system($command); 

     #do stuff 

    } else { 
     #do stuff 
    } 

print "Exiting..." 
exit; 

इसके बजाय के बाद बाहर निकलने की, perl.exe सिर्फ idles। एक पॉप-अप तो मुझे बताता है कि "पर्ल कमांड लाइन दुभाषिया ने काम करना बंद कर दिया है।"

मैं Windows में प्रक्रिया प्रबंधन के बारे में बहुत ज्यादा नहीं पता है, और मैं इस मंच कि यह fork() और exec() उपयोग करने के लिए अच्छा अभ्यास नहीं है पर पहले से पढ़ लिया है, लेकिन कोड दुभाषिया के अलावा अच्छी तरह से काम करता है भाग को बंद नहीं। मैंने यूनिक्स में प्रोग्राम को लागू करने की कोशिश करने से सबकुछ करने की कोशिश की है (जो एक ही त्रुटि देता है) Win32::Process कमांड का उपयोग करने के लिए - लेकिन कुछ भी काम नहीं करता है। मुझे उम्मीद थी कि एक आसान समाधान हो सकता है जो मुझे पहले से लिखे गए कार्यों को संरक्षित करने की अनुमति देगा।

अगर कोई यह बता सकता है कि यह कोड चलाए जाने पर विंडोज में वास्तव में क्या हो रहा है, तो यह भी मददगार होगा!

Answer 1

मैं 2 स्वतंत्र समस्याएं देख सकता हूं।

1. system() एक बच्चे की प्रक्रिया बनाता है, इस प्रकार यदि आप फोन एक system() एक काँटेदार बच्चे से, आप 3 प्रक्रियाओं होगा। लेकिन आप केवल दूसरे (कांटेदार बच्चे) को मारते हैं, और बच्चे के बच्चे ($ कमांड) नहीं। exec() जैसे कुछ फ़ंक्शन का उपयोग करने का प्रयास करें, यूनिक्स पर यह वास्तविक प्रक्रिया के स्थान (और पिड पर) पर बाल प्रक्रिया शुरू करता है। यदि आपके पास भाग्य है, तो विंडोज़ पर पर्ल वही करता है।

2. पैरेंट थ्रेड में आप $$ को मारते हैं, जो वर्तमान प्रक्रिया है। शायद आप $pid (जो पैरेंट थ्रेड पर बाल प्रक्रिया का ढक्कन है) को मारना चाहते थे।

Answer 2

मैं (कार्यक्रम बाहर यह बार और, सबसे महत्वपूर्ण बात, पर्ल दुभाषिया तोड़ नहीं है!) निम्नलिखित प्रयोग किया है:

use Win32::Job; 
my $job = Win32::Job->new; 

    # Run $command for $max_time 
    $job->spawn($Config{"path/cmd.exe"}, $command); 
    $job->run($max_time); 
    exit; 

Answer 3

मेरे मामले में मैं कुछ "उपयोग" बयान हटा दिया और इसे हल किया गया था। ऐसा शायद होता है क्योंकि विंडोज़ पर "कांटा" के लिए perl कार्यान्वयन सही नहीं है और इसमें कुछ "भारी" ऑब्जेक्ट जैसे ओएलई लाइब्रेरी आयात करने में समस्याएं हैं।

सटीक का उपयोग करता है मैं हटाया:

#use Win32::OLE qw(in with); 
#use Win32::OLE::Const 'Microsoft Excel'; 

युक्ति: यदि संभव हो तो, गतिशील पुस्तकालयों बिंदु के बाद आयात की कोशिश कोड बॉक्स में कोई कांटा है। मेरे मामले के लिए

उदाहरण:

# code with fork 
eval "use Win32::OLE::Const 'Microsoft Excel';"; 
eval "use Win32::OLE qw(in with);"; 
# code without fork