मैं एक पर्ल प्रोग्राम से चल रहे प्रोग्राम के STDOUT को कैसे देख सकता हूं जिसे इसे कहा जाता है?

Question

हम यह पता लगाने की कोशिश कर रहे हैं कि एक जावा एप्लिकेशन को एक पर्ल स्क्रिप्ट के भीतर से कैसे चलाया जाए लेकिन फिर भी जावा ऐप के STDOUT से समय-समय पर पढ़ सकें।

print "running dcmrcv.bat\n"; 

open my $fh_dcmrcv, "-|", 'z:\apps\dcm4che\dcm4che-2.0.26\bin\dcmrcv.bat \ 
    DCMRCV:11112 -dest z:\dcmrcv -journal z:\dcmrcv', 
    or die "could not execute dcmrcv: $!"; 

print "dcmrcv.bat started\n"; 

हम filehandle, $ fh_dmcrcv से पढ़ने में सक्षम होना चाहते थे, हर कुछ मिनटों या शायद ट्रिगर कब एक AnyEvent की स्थापना जब वहाँ filehandle पर गतिविधि है द्वारा।

हालांकि, जब मैं कोशिश करते हैं और filehandle से पढ़ें, यह ब्लॉक अगर मैं कुछ इस तरह का उपयोग करें:

foreach my $line (<$fh_dmcrcv>) { 
    print $line; 
} 

हम कई दृष्टिकोण की कोशिश की है, नहीं लगता है कि हम फ़ाइल :: पूंछ का उपयोग कर सकते है, चूंकि ऐसा लगता है कि मॉड्यूल को एक वास्तविक फ़ाइल की आवश्यकता है। ऐसा लगता है कि जब हम इसे पढ़ते हैं तो $ fh_dcmrcv हमें अवरुद्ध कर रहा है, हम वास्तव में सही दृष्टिकोण के बारे में सुनिश्चित नहीं हैं कि हम क्या चाहते हैं।

संपादित करें # इस तरह 1

हम अपने पर्ल स्क्रिप्ट चलाने हम देख रहे हैं उत्पादन: msgs

Z:\projects\demo_2>process_files.pl 
running dcmrcv.bat 
dcmrcv.bat started 
Start Server listening on port 11112 
11:55:13,495 INFO - Start listening on 0.0.0.0/0.0.0.0:11112 

स्क्रिप्ट, process_files.pl उत्सर्जित करती है .:

running dcmrcv.bat 
dcmrcv.bat started 

संदेश। जावा कार्यक्रम से कर रहे हैं: प्रारंभ सर्वर पोर्ट पर ध्यान 11112 11: 55: 13,495 जानकारी - 0.0.0.0/0.0.0.0:11112

पर सुन इस मामले में हम सिर्फ खातिर उन बाहर गूंज रहे हैं शुरू इस सवाल के, वास्तव में हम कुछ संदेशों के लिए समय-समय पर विश्लेषण करना चाहते हैं। और उनमें से किसी को भी गूंज नहीं।

किसी भी अंतर्दृष्टि की सराहना की है,

-Sam

Answer 1

अधिकांश सिस्टम 4-तर्क select फ़ंक्शन का समर्थन करते हैं (IO::Select में अच्छी तरह से पैक किया गया है) जो आपको बता सकता है कि सॉकेथैंडल या पाइपहेडल पर इनपुट प्रतीक्षा है या नहीं।Windows में, select केवल सॉकेट पर समर्थित है, जो इस बीजान्टिन समाधान की ओर जाता है:

1. सॉकेट जोड़ी
2. कांटा बना सकते हैं और एक बच्चे की प्रक्रिया
3. बच्चे प्रक्रिया में में कमांड चलाएँ, आदेश उत्पादन को पुनः प्राप्त और सॉकेट
4. माता-पिता में करने के लिए इसे लिखने का चयन करें का उपयोग करें और के रूप में वांछित सॉकेट पर कार्रवाई पढ़

उदाहरण:

use Socket; 
use IO::Select; 
use Time::HiRes; 
$cmd = $^X . ' -MMath::BigInt -e "$_=1; ' 
     . 'print qq/$_!=/,Math::BigInt->new($_)->bfac(),qq/\n\n\n/' 
     . ' for 4000..4100"'; 
socketpair A,B,AF_UNIX,SOCK_STREAM,PF_UNSPEC; # step 1 
if (fork() == 0) { 
    open my $fh, '-|', $cmd;     # step 2 
    while (<$fh>) { 
     print B;        # step 3 
    } 
    close $fh; 
    exit $? >> 8; 
} 
$s = IO::Select->new(); 
$s->add(\*A); 
for (;;) { 
    if ($s->can_read(0.25)) {     # step 4 
     $line = <A>; 
     print "Do something with command output: $line"; 
    } else { 
     print "No output now. Could be doing something else ...\n"; 
     Time::HiRes::sleep(0.25); 
    } 
} 

क्या आप वाकई अपने कमांड आउटपुट को अस्थायी फ़ाइल में लिखना नहीं चाहते हैं?

Answer 2

इस बजाय साथ पढ़ने की कोशिश: पढ़ने के लिए

while (my $line = <$fh_dmcrcv>) { 
    print $line; 
} 

संबंध

Answer 3

उपयोग IO::Select या चार तर्क select() जब पढ़ने नहीं होगा ब्लॉक। संपादित करें: कभी नहीं, आप on Windows हैं, इसलिए यह काम नहीं करेगा। एक विकल्प: इस पाइप से मध्यस्थ प्रक्रिया पढ़ें और एक मध्यस्थ फ़ाइल को जो भी पूंछ-लंबाई की आवश्यकता है उससे भरें। Bleh।

यह कहा जाता है कि, पाइप से "हर कुछ मिनट" पढ़ने का सबसे अच्छा तरीका हर कुछ सेकंड से पढ़ना है।