Paralel :: ThreadContext Çok parçalı perl programlarının kolay kurulması için çerçeve
Şimdi İndirin

Paralel :: ThreadContext Sıralama ve Özet

Paralel :: ThreadContext Etiketler

çerçeve Perl modülü perl çok iş parçacıklı çok iş parçacıklı program

Paralel :: ThreadContext Açıklama

Çok iş parçacıklı perl programlarının kolay kurulması için çerçeve ThreadContext, bir perl modülü, çok parçalı perl programlarının kolay oluşturulması için bir çerçeve ve bazı yardımcı programlar sağlar. Bağlam bazlı eşzamanlı iplik kavramını tanıtır ve kullanır. Kullanıcı, uygulama mantığına bağlı olarak istediğiniz kadar bağlam özgürce tanımlayabilir. 'Prefetch', 'kod çözme', 'yürütme', ... her bir bağlamda iplikler aynı sıra üzerinde eşzamanlı benzer işler gerçekleştiriyor. Aynı bağlamdaki iplikler bir iş parçacığı grubunu temsil ediyor. Tabii ki bir grup yalnızca bir iplikten oluşabilir. Bir bağlamda kilitlenen kaynaklar diğer bağlamları etkilemezler. $ sayacı = 0; $ counter_ref = \ $ sayacı; alt op1 {$ job = shift @_; Paralel :: ThreadContext :: AbortCurrentThread ("$ JOY == 30); Paralel :: ThreadContext :: Println ("Bağlamda İş Çek Alma İşi Yapma" .Paralel :: ThreadContext :: getContextName ()); Paralel :: ThreadContext :: PausecurrentThread (1); Paralel :: ThreadContext :: Reservelock ("Karşı Klavuz", "Hesaplama"); $ sayacı ++; Paralel :: ThreadContext :: ReleenSelock ("Tavsiye", "Hesaplama"); } $ Paralel :: ThreadContext :: debug = 1; Baskı stdout paralel :: threadcontext :: sürüm (); $ nbthreads = paralel :: threadcontext :: getnoprocessors (); if (tanımlanmış $ nbthreads) {$ nbthreads * = 3; # 3 işlemci başına iş parçacığı} else {$ nbthreads = 3; } Paralel :: ThreadContext :: ShareVareable ($ Counter_Ref); Paralel :: ThreadContext :: Başlat (\ OP1, , $ nbThreads, "Hesaplama"); Paralel :: ThreadContext :: AddJobStoQueue (, "Hesaplama"); Paralel :: ThreadContext :: PausecurrentThread (2); Paralel :: ThreadContext :: AddJobStoqueue (, "Hesaplama"); Paralel :: ThreadContext :: PausecurrentThread (4); Paralel :: ThreadContext :: Son ("Hesaplama"); # Bağlamdaki kuyruk hala açıksa (henüz kesinleştirilmemiştir) paralel :: ThreadContext :: AddJobStoqueue (, "Hesaplama"); # Bahsedilen bağlamdan bu yana geldiğinden beri Paralel :: ThreadContext :: AddJobStoqueue (, "Hesaplama"); Paralel :: ThreadContext :: Başlat (\ OP1, [], 1, "Hesaplama2"); Paralel :: ThreadContext :: FinalizeQueue ("Hesaplama2"); Paralel :: ThreadContext :: YielDrunting ("Hesaplama2"); Paralel :: ThreadContext :: Son ("Hesaplama2"); Paralel :: ThreadContext :: PrintLN ("Son Sayaç Değeri $ Sayaç"); Gereksinimler: · Perl

Paralel :: ThreadContext İlgili Yazılım