| אשכול :: בריכה נושא :: בריכה מכיל קבוצה של חוטים לביצוע עבודות דומות. |
הורד עכשיו |
אשכול :: בריכה דירוג וסיכום
- רישיון:
- Perl Artistic License
- שם המפרסם:
- Elizabeth Mattijsen
- אתר האינטרנט של המוציא לאור:
- http://search.cpan.org/~elizabeth/
אשכול :: בריכה תגים
אשכול :: בריכה תיאור
אשכול :: בריכה מכיל קבוצה של חוטים לביצוע עבודות דומות. אשכול :: בריכה מכיל קבוצה של אשכולות לביצוע עבודה דומה. $ Pool = Thread :: בריכה -> חדש ({אופטימיזציה => 'מעבד', # ברירת מחדל: 'זיכרון' טרום => משנה {Shift; הדפסה "הפעלת פועל עם @_n", Do => תת {Shift, הדפסה " ביצוע עבודה עבור @_n ", הפוך @_}, פוסט => תת {Shift, הדפס" הפסקת העובד עם @_n ", זרם => תת {Shift; הדפסה" לייעל עם @_n ", צג => תת {הדפסה" צג עם @_n ", pre_post_monitor_only => 0, # ברירת מחדל: 0 = גם עבור" DOLE "Prinkpointingn"}, תדר => 1000, autoshutdown => 1, # ברירת מחדל: 1 = כן עובדים = > 10, # ברירת מחדל: 1 maxjobs => 50, # ברירת מחדל: 5 * עובדים minjobs => 5, # ברירת מחדל: maxjobs / 2}, QW (ABC) # פרמטרים ל "טרום" ו "פוסט" שגרתית); $ Pool-> עבודה (QW (D e f)); # לא מעוניין לגרום $ $ Jobid = $ בריכה - עבודה (QW (G H i)); @Result = $ בריכה-> תוצאה ($ Jobid); # המתן לתוצאה כדי להיות מוכן Jobid = $ Pool-> עבודה (QW (j k l)); @result = $ בריכה-> orus_dontwait ($ Jobid); # לעשות _not_ המתן לתוצאה @result = $ Pool-> Rikefor (QW (m n o)); # שלח והמתן לתוצאה $ Poot-> הוסף; # הוסף פועל (ים) $ בריכה-> הסר; # הסר פועל (ים) $ בריכה -> עובדים (10); # להתאים את מספר העובדים $ בריכה-> הצטרף; # המתן עבור כל הנושאים העובדים שהוסרו לסיים לעובדים $ = $ בריכה -> עובדים; $ todo = $ בריכה-> todo; $ הוסר = $ בריכה-> הוסר; $ Pool-> Maxjobs (100); # להתאים או (de-) הפעל עבודה מצערת $ בריכה-> minjobs (10); $ Pool-> Autoshutdown (1); # כיבוי כאשר אובייקט נהרס $ Pool-> כיבוי; # המתן עד שכל העבודות בוצעו $ $ -> ביטול; # לסיים את העבודה הנוכחית ולהסיר את כל העובדים $ DONE = $ Pool-> בוצע; # סטטיסטיקה פשוט לשימוש חוט $ $ = $ בריכה - מבודדים; אשכול :: בריכה -> DRET_ME; # בפנים "לעשות" רק · perl
אשכול :: בריכה תוכנה קשורה