Perl6 :: איסוף perl6 :: לאסוף מודול perl כי מיישמת את מבנה הבקרה של Perl 6 "לאסוף / לקחת" ב Perl 5.
הורד עכשיו

Perl6 :: איסוף דירוג וסיכום

Perl6 :: איסוף תגים

לִשְׁלוֹט לאסוף מבנה Perl לאסוף שליטה קח שליטה

Perl6 :: איסוף תיאור

Perl6 :: לאסוף מודול Perl אשר מיישמת את מבנה שליטה Perl 6 "לאסוף / לקחת" ב Perl 5. Perl6 :: איסוף הוא מודול Perl אשר מיישמת את מבנה הבקרה Perl 6 "לאסוף / לקחת" ב Perl 5.Synopsis להשתמש perl6 :: לאסוף; @list = לאסוף {# נסה לחלץ מספרים מוזרים ושמות מספר מוזר ... עבור (@data) {אם (/ אחד | שלושה | חמש | תשע) $ /) {לקחת QQ {'$ _'; } אלסיף (/ ^ d + $ / $ _% 2) {לקחת; }} # אבל השתמש בקבוע ברירת המחדל אם אין כל אחד מהם ... לקחת @defaults אלא אם כן נאסף; } Backgrounderl 6 מספק מבנה שליטה חדש - לאסוף - המאפשר רשימות להיות בנוי פרוצדורלי, ללא צורך משתנה זמני. בתוך הבלוק / סגירה הנשלטת על ידי איסוף כל שיחה כדי לקחת דוחף את הארגומנטים של השיחה מערך שנוצר במרומז. קח מחזירה את מספר האלמנטים שהיא לקחה. בסוף ביצוע הבלוק, האסיפה מחזירה את רשימת הערכים המאוחסנים במערך (בהקשר רשימה) או התייחסות למערך (בהקשר סקלר). לדוגמה, במקום לכתוב: # Perl 6 קוד ... הדפס לעשות {שלי @wanted; עבור -> $ שורה {לדחוף @wanted, $ שורה אם $ שורה ~~ / d /; לדחוף @wanted, - $ שורה אם some_other_condition ($ שורה); } לדחוף @wanted, 'EOF'; @מבוקש; }; ב Perl 6 אנחנו יכולים לכתוב: # Perl 6 קוד ... הדפס לאסוף {fore> $ שורה {לקחת $ שורה אם $ שורה ~~ / d /; קח - $ שורה אם some_other_condition ($ שורה); } לקחת 'EOF'; } ובמקום: $ טקסט = לעשות {מחרוזת $ שלי; עבור {הבא אם / ^ # | ^ s * $ /; אחרון אם / ^ __ __ n $ /; $ string. = $ _; } $ מחרוזת; }; נוכל לכתוב: $ text = ~ לאסוף {for {הבא אם / ^ # | ^ s * $ /; אחרון אם / ^ __ __ n $ /; לקחת; }} כמו הדוגמה הנ"ל מרמזת, אם נקראת נקראת ללא כל טיעונים, זה לוקח את הנושא הנוכחי. יש גם פונקציה שלישית - שנאספו - אשר מחזירה התייחסות למערך המרומז נאסף. זה שימושי לטיפול בברירות מחדל: @odds = לאסוף {for @data {לקחת אם $ _% 2; קח to_num ($ _) אם / $ /; } לקחת 1,3,5,7,9 אלא אם כן נאסף; } זה גם שימושי ליצירת מערך מרומז על ידי תהליך כלשהו מורכב יותר מאשר על ידי דחיפה רציפה פשוטה. לדוגמה, אם היינו צריכים לעצור ספירה של פריטים שאינם מספריים: @odds = לאסוף {for @data {לקחת אם $ _% 2; קח to_num ($ _) אם / $ /; } unshift נאספו, + GREP (/ / I, @data); } איסוף / קח הוא הטופס הכללי שממנו מפת וגרפ. כלומר, אנחנו יכולים ליישם את שתי הפונקציות האלה כמו: מפת משנה ($ ההפנה הוא קוד, * @ @ list) {return all {for @list {לקחת $ $ transfer ($ _)}}; } SUB GREP ($ שנבחרו קוד | כלל, @ @ list) {return is {for @ list {לקחת כאשר נבחר $}}} איסוף הוא גם דרך שימושית מאוד של מעגל קצר של רשימה של רשימה. לדוגמה, נניח שרצינו לייצר רשימה אחת של שורות משני קבצים ממוינים, אבל רק עד השורה הראשונה יש להם במשותף. אנחנו יכולים לאסוף את השורות כך: @mergged_diff = שלי לאסוף {שלי $ A = <$ fh_a>; שלי $ b = <$ fh_b>; לולאה {אם מוגדרת לכל $ A, $ {אם $ AQ $ B {האחרון} # כפולות פירושו סוף הרשימה Elsif $ LT $ B {לקחת $ A; $ A = <$ fh_a>; } אחר {לקחת $ B; $ b = <$ fh_b>; }} elsif הגדיר $ A {לקחת $ A; $ A = <$ fh_a>; } אלסיף הגדיר $ B {לקחת $ B; $ b = <$ fh_b>; } אחר {אחרון}} דרישות: · דרישות Perl: · פרל

Perl6 :: איסוף תוכנה קשורה