متوازي :: ThreadContext. إطار لسهولة إنشاء برامج بيرل متعددة مؤشرات الترابط
التحميل الان

متوازي :: ThreadContext. الترتيب والملخص

متوازي :: ThreadContext. العلامات

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

متوازي :: ThreadContext. وصف

إطار لسهولة إنشاء برامج بيرل متعددة مؤشرات الترابط ThreadContext هي وحدة Perl توفر إطارا وبعض الأدوات المساعدة لسهولة إنشاء برامج بيرل متعددة مؤشرات الترابط. إنه يقدم ويستخدم مفهوم الخيط المتزامن القائم على السياق. يحدد السياق نوعا من الاسم ومساحة العمل لتنفيذ مؤشرات الترابط ويتكون من مؤشرات انتظار + مؤشرات الترابط تعمل على أقفال قائمة الانتظار هذه التي تستخدمها مؤشرات الترابط في قائمة الانتظار هذه. يمكن للمستخدم تحديد بحرية أكبر عدد ممكن من السياقات لأنه يريد اعتمادا على منطق التطبيق الخاص به E.G. "الجلب"، "فك التشفير"، "تنفيذ"، بالطبع يمكن للمجموعة أن تتكون من موضوع واحد فقط. الموارد المغلقة في سياق واحد لا تؤثر على السياقات الأخرى .syopsis بلدي مكافحة $ = 0؛ بلدي $ counter_ref = \ $ عداد؛ Sub Op1 {وظيفتي $ = Shift @؛ موازية :: ThreadContext :: abortcurrentthread ("تعبت من المعيشة") إذا ($ الوظيفة == 30)؛ متوازي :: ThreadContext :: Println ("أداء وظيفة $ وظيفة في السياق" .Parallel :: ThreadContext :: GetContextName ())؛ موازية :: ThreadContext :: pausecurrentthread (1)؛ متوازي :: ThreadContext :: Reservelock ("مكافحة"، "حساب")؛ $ counter ++؛ متوازي :: ThreadContext :: Releaselock ("مكافحة"، "حساب")؛ } $ متوازية :: ThreadContext :: Debug = 1؛ طباعة Stdout موازية :: ThreadContext :: الإصدار ()؛ بلدي $ nbthreads = متوازي :: ThreadContext :: GetNoProcessors ()؛ إذا (محدد $ nbthreads) {$ nbthreads * = 3؛ # 3 المواضيع لكل معالج} آخر {$ nbthreads = 3؛ } موازية :: Threadcontext :: ShareFariable ($ counter_ref)؛ متوازي :: ThreadContext :: Start (\ OP1، ، NBThreads $، "حساب")؛ متوازي :: ThreadContext :: AddJobStoqueque (، "حساب")؛ موازية :: ThreadContext :: pausecurrentthread (2)؛ متوازي :: ThreadContext :: AddjobStoqueque (، "حساب")؛ موازية :: ThreadContext :: pausecurrentthread (4)؛ متوازي :: ThreadContext :: نهاية ("حساب")؛ # هل يجب أن تعطي تحذيرا إذا كان قائمة الانتظار في السياق لا يزال مفتوحا (غير نهائي بعد) متوازي :: ThreadContext :: AddJobStoqueue (، "حساب")؛ #Warning منذ سياق المذكورة غير موجودة متوازية :: ThreadContext :: AddJobStoqueque (، "حساب")؛ متوازي :: ThreadContext :: Start (\ OP1، []، 1، "حساب 2")؛ متوازي :: ThreadContext :: Finalizequeue ("حساب 2")؛ موازية :: ThreadContext :: yieldrundime ("حساب 2")؛ متوازي :: ThreadContext :: END ("حساب 2")؛ متوازي :: ThreadContext :: println ("قيمة العداد النهائي هو مكافحة $")؛ متطلبات: perl.

متوازي :: ThreadContext. برامج ذات صلة