WX :: PERL :: ProcessStream
التحميل الان

WX :: PERL :: ProcessStream الترتيب والملخص

WX :: PERL :: ProcessStream العلامات

الوحدة النمطية بيرل بيرل وصول io.

WX :: PERL :: ProcessStream وصف

Wx :: Perl :: ProcessStream هو وحدة بيرل توفر رموز Stdout و Stderr والخروج من العمليات التي تعمل بشكل غير متزامن عبر الأحداث. يمكن استخدامه لعمليات التشغيل أو الحظر الطويلة التي توفر تحديثات دورية على الدولة عبر Stdout. ممكن IPC بسيطة من خلال Stdin.Do لا تستخدم هذه الوحدة ببساطة لجمع إخراج عملية أخرى. لذلك، يكون الأمر أبسطا كبيرا للقيام به: بلدي (حالة $، إخراج $) = WX :: ExecutestDout ("Perl -e" طباعة QQ ($ _ \ n) ل (CU _ \ n) ل (@ CO $ _ \ n)؛ ")؛ :: بيرل :: ProcessStream QW (: كل شيء)؛ EVT_WXP_PROCESS_STREAM_STDOUT ($ الذاتي، \ evt_process_stdout)؛ EVT_WXP_PROCESS_STREAM_STDERR ($ الذاتي، \ evt_process_sterr)؛ EVT_WXP_PROCESSS_STREAMIT ($ الذاتي، \ evt_process_exit)؛ EVT_WXP_PROCESS_STREAM_MAXLINK ($ الذاتي، \ evt_process_maxlines)؛ بلدي $ proc1 = wx :: perl :: processstream :: process-> جديد ("perl -e" طباعة QQ ($ _ \ n) ل ($ _ \ n) for (@ cotel)؛ "'myname1'، $ الذاتي)؛ Proc1-> تشغيل؛ بلدي $ command = 'exectable.exe parm1 parm3' my $ proc2 = wx :: perl: processstream :: عملية>> جديد (أمر $، "myname2"، $ الذاتي) -> تشغيل؛ بلدي @ args = qw (exexable.exe parm1 parm3)؛ بلدي $ proc3 = wx :: perl :: processstream :: العملية-> جديد (\ @ args، "myname2"، $ الذاتي)؛ Proc3-> تشغيل؛ بلدي $ proc4 = wx :: perl :: processstream :: عملية> جديد (\ @ args، 'myname2'، $ الذاتي، 'Readline') -> تشغيل؛ بلدي $ proc5 = wx :: perl :: processstream :: العملية-> جديد (\ @ args، "myname2"، $ الذاتي)؛ Sub EVT_PROCESS_STDOUT {My (P $ الذاتي، حفل $) = @؛ EXTS-> تخطي (1)؛ بلدي عملية $ = الحدث $ -> getprocess؛ بلدي خط $ = الحدث $-> getline؛ إذا كان ($ LINE EQ "شيء ننتظر") {Process-> WriteProcess ("رسالة إلى Stdin")؛ معالجة $-> إيقاع () إذا ($ الكتابة الجاد)؛ } ............ # لمسح المخزن المؤقت الخاص بي mybuffers = @ {process $-> getstdoutbuffer}؛ } Sub EVT_PROCESS_STDERR {My (P $ الذاتي، حدث $) =_؛ EXTS-> تخطي (1)؛ بلدي عملية $ = الحدث $ -> getprocess؛ بلدي خط $ = الحدث $-> getline؛ طباعة Stderr QQ ($ LINE \ N)؛ # لمسح المخزن المؤقت الخاص بيerrors = @ {$ العملية-> getstderrbuffer}؛ } Sub EVT_PROCESS_EXIT {My (P $ الذاتي، حدث $) =_؛ EXTS-> تخطي (1)؛ بلدي عملية $ = الحدث $ -> getprocess؛ بلدي خط $ = الحدث $-> getline؛ My Buffers = @ {$ العملية-> getstdoutbuffer}؛ بلديerrors = @ {process $-> getstderrbuffer}؛ بلدي $ exitcode = عملية $-> getExitcode؛ ............ $ عملية-> تدمير؛ } Sub EVT_PROCESS_MAXLINKLINKS بلدي عملية $ = الحدث $ -> getprocess؛ ..... عملية سيئة عملية $-> قتل؛ } الصفحة الرئيسية للمنتج

WX :: PERL :: ProcessStream برامج ذات صلة