 | Alt :: dilimUzun süredir çalışan görevleri yönetilebilir parçalara bölün |
| Şimdi İndirin | |
Alt :: dilim Sıralama ve Özet
Reklamcılık
Alt :: dilim Etiketler
Alt :: dilim Açıklama
Uzun süredir çalışan görevleri yönetilebilir parçalara bölün Alt :: Slice, uzun bir işlemi kıran, bir seferde bir seferde bir seferde bir seferde, HTTP / SOOK gibi vatansız bir protokol üzerinden bir kez yürütülebilen bir perl modülüdür. Bu, istemcinin ilerleyişi görüntüleyebileceği veya işlemi iptal edebileceği anlamına gelir. Müşterine geçen belirteç, müşterinin işin tamamlanıp başarısız olmadığını belirlemek için kullanabileceği durum bilgisi içerir. Her yinelemede denilen rutin, sunucu bir dizi koderefs tanımlar. verilen bir yineleme için çağrılacaktır. Ek olarak, sunucu, işin başlangıcında ve sonunda çağrılacak koderefleri tanımlayabilir. Sunucu, müşteriye, yineleme sayısının bir tahminini sağlayabilir. İşin alması muhtemeldir. Müşteri için ilerleme döndürmeden önce yürütülecek yineleme sayısını değiştirerek performans / kullanılabilirliği dengelemek mümkündür. Sunucuda Yöntem Varsayım :: Paket Sihirli Olarak My $ TONEN = Sunucu :: Create_Token (); için (1 .. max_iterations) {Sunucu :: do_work ($ belirteç); $ belirteç -> {Tamam}; } # Server # Bunu, uzak bir makine paketi sunucusunda olduğunu düşünün; Alt :: dilimi kullanın; Sub Create_Token {# Yeni bir iş oluşturun: $ JOBION = yeni alt :: Dilim (Backown => '' dosya sistemi ', DepoL_OPTIONS => {PATH =>' / var / tmp / myproject / ',}); $ iş-> belirteç; } Alt do_work {# Mevcut bir iş yüklenmesi: $ JOB'ım = Yeni Alt :: Dilim (Token => $ Tokken Backend => 'Dosya Sistemi', Depolama_Options => {PATH => '/ var / TMP / MyProject /',} ); at_start $ job sub {$ job-> mağaza ('foo', '1'); $ job-> mağaza ('bar', {abc => 'def'}); # Mağaza Verileri, Başlangıç $ Job-> Set_ESTIMA (10); # Tahmini adım sayısını geri getirin ($ JOB-> Al ('Foo')); }; $ foo = $ job-> getiri ('foo'); at_stage $ job "Stage_one", alt {$ baret = $ job-> getiri ('bar'); # $ job -> next_stage ('stage_two') bir some_condition; }; AT_STAGE $ JOY "Stage_two", alt {# ... daha fazla şey yap ... # İşaretle İşi Siline Etmeye Hazır $ Job-> Bitti () Eğer $ Job-> Count () == $ İş-> Tahmini ( ); }; $ job-> return_value () iade etmek; #Pass Coderefs} Gereksinimlerinden gelen herhangi bir dönüş değeri: · Perl
Alt :: dilim İlgili Yazılım
