الخيوط مؤشرات الترجمة القائمة على بيرل
التحميل الان

الخيوط الترتيب والملخص

الخيوط العلامات

الوحدة النمطية بيرل بيرل الخيوط مترجم مترجم بيرل بيرل المواضيع

الخيوط وصف

مؤشرات الترجمة القائمة على بيرل هذا هو الوحدة المواضيع المستندة إلى بيرل. Sub Start_Thread {my @ myargs =_؛ طباعة (بدأ الموضوع: ''، انضم (''، @ @)، " ")؛} بلدي $ thar = الخيوط-> إنشاء ('start_thread'، 'وسيطة')؛ $ thr-> الانضمام ()؛ المواضيع-> إنشاء (sub {print (" أنا موضوع ")؛}) -> الانضمام ()؛ بلدي $ thr2 = async {foreach (files) {...}}؛ $ thr2-> الانضمام ()؛ إذا (بلدي $ err = $ thr2-> خطأ () ) {تحذير ("خطأ في الخيط: $ يخطئ ")؛} # # مؤشر ترابط في سياق القائمة (ضمنية) حتى تتمكن من إرجاع قائمة بلدي ($ thar) = الخيوط -> إنشاء (sub {return (qw / abc /)؛})؛ # أو تحديد سياق القائمة صراحة بلدي $ trate = الخيوط-> إنشاء ({{'context' => 'list'}، sub {return (qw / abc /)؛})؛ بلدي results = $ tring-> الانضمام ()؛ $ thar-> detach ( . > TID ()؛ $ tid = "$ thr"؛ # إعطاء المواضيع الأخرى فرصة لتشغيل الخيوط () الإنتاجية ()؛ العائد ()؛ قوائم # المواضيع غير المنفصلة بلدي threads = المواضيع ()؛ My $ thread_count = المواضيع> القائمة ()؛ بلدي @ running = المواضيع> القائمة (المواضيع: الجري)؛ بلدي @ التشغيل = الخيوط (المواضيع: قابلة للرقابة)؛ # اختبار كائنات موضوع إذا ($ thr1 = = $ thr2) {...} # إدارة مؤشر الترابط STACK $ $ Stack_Size = خيوط> Get_Stack_Size ()؛ $ Old_Size = خيوط> SET_STACK_SIZE (32 * 4096)؛ # إنشاء مؤشر ترابط مع سياق معين وحجم المكدس الخاص بي thr = nines- "إنهاء" => 'Thread_Only'}، FOO)؛ # احصل على سياق مؤشر الترابط بلدي RandaRay = $ thr-> wanthray ()؛ # تحقق من حالة الخيط إذا كان ($ thr-> is_running ()) {sleep (1)؛ } إذا كان ($ ther-> is_joinable ()) {$ thr-> الانضمام ()؛ } # إرسال إشارة إلى موضوع $ tring-> kill ('sigusr1')؛ # الخروج من خيوط الخيط-> الخروج ()؛ متطلبات: perl.

الخيوط برامج ذات صلة