PERL6 :: جمع
التحميل الان

PERL6 :: جمع الترتيب والملخص

PERL6 :: جمع العلامات

مراقبة يجتمع بنية بيرل جمع السيطرة السيطرة

PERL6 :: جمع وصف

PERL6 :: GATION هو وحدة بيرل التي تنفذ هيكل التحكم في بيرل 6 "جمع / خذ" في بيرل 5. PERL6 :: GATH هي وحدة نمطية من بيرل تنفذ هيكل التحكم Perl 6 "جمع / آخذ" في Perl 5.Synopsis استخدام PERL6 :: GATH؛ @ القائمة = جمع {# محاولة استخراج أرقام فردية وأسماء الأرقام الفردية ... ل (@ data) {if (/ (واحد | ثلاثة | خمسة | تسعة) $ /) {Take QQ {'$ _ _'}؛ } elsif (/ ^ d + $ / $ _ 2) {خذ؛ }} # ولكن استخدم المجموعة الافتراضية إذا لم يكن هناك أي من إما ... خذ Defaults إلا إذا تم جمعها؛ } يوفر الخلايا الخلفية 6 هيكل مراقبة جديد - جمع - الذي يسمح بإنشاء قوائم بإجراءات من الناحية الإجرائية، دون الحاجة إلى متغير مؤقت. داخل كتلة / إغلاق تسيطر عليها جمع أي مكالمة لاتخاذ دفع قائمة وسيطة المكالمة هذه إلى صفيف تم إنشاؤه ضمنيا. خذ إرجاع عدد العناصر التي استغرقها. في نهاية تنفيذ الكتلة، يعرض جمع قائمة القيم المخزنة في الصفيف (في سياق قائمة) أو مرجع إلى الصفيف (في سياق العددية). على سبيل المثال، بدلا من الكتابة: # بيرل 6 كود ... طباعة تفعل {بلدي wwanted؛ ل -> خط $ {push wanted، $ line إذا كان خط $ ~~ / د /؛ دفع Wanted، - خط $ إذا كان بعض الشيء_UTHER_CONDITION (خط $)؛ } دفع Wanted، "EOF"؛ @مطلوب؛ }؛ في بيرل 6 يمكننا أن نكتب: # بيرل 6 كود ... طباعة جمع {for -> $ line {take $ line إذا $ / $ ~ ~ / d /؛ خذ خط $ إذا كان بعض الشيء_UTHER_CONDITION (خط $)؛ } اتخاذ "EOF"؛ } وبدلا من: $ text = قم بعمل سلسلة $؛ ل {التالي إذا / ^ # | ^ s * $ /؛ أخيرا إذا / ^ __ __ N $ /؛ سلسلة $. = $ _؛ } سلسلة $؛ }؛ يمكننا الكتابة: نص $ = ~ جمع {التالي إذا / ^ ^ # | ^ s * $ /؛ أخيرا إذا / ^ __ __ n $ /؛ يأخذ؛ }} كما يعني المثال أعلاه، إذا تم استدعاء أخذ دون أي حجج، فإنه يأخذ الموضوع الحالي. هناك أيضا وظيفة ثالثة - التي تم جمعها - والتي ترجع إشارة إلى الصفيف الضمني يجري جمعها. هذا مفيد لمعالجة الإعدادات الافتراضية: odds = جمع {for data {خذ إذا $ _ 2؛ خذ to_num ($ _) إذا / $ /؛ } خذ 1،3،5،7،9 ما لم يتم جمعها؛ إنه مفيد أيضا لإنشاء الصفيف الضمني من خلال بعض العملية أكثر تعقيدا من الدفع التسلسلي البسيط. على سبيل المثال، إذا كنا بحاجة إلى إعدام عدد العناصر غير الرقمية: odds = جمع {for data {خذ إذا $ _ 2؛ خذ to_num ($ _) إذا / $ /؛ } تجمع Unshift، + GREP (/ / I، Data)؛ } جمع / اتخاذ مفاهيم هو النموذج المعمم الذي يستشأ منه كل من الخريطة و Grep. وهذا يعني أننا نستطيع تنفيذ هذه الوظائف على النحو التالي: خريطة فرعية (تحويل رمز، * @ القائمة) {إرجاع جمع {for nist {take $ تحويل ($ _)}}؛ } Sub GREP ($ المحدد هو رمز | القاعدة، * @ قائمة) {إرجاع جمع {for nost {خذ عند المحدد}}} هو أيضا طريقة مفيدة للغاية لمكافحة إنشاء قائمة. على سبيل المثال، لنفترض أننا أردنا إنشاء قائمة مفروشة من الخطوط الفردية من ملفين فرزها، ولكن فقط حتى السطر الأول لديهم مشترك. يمكننا جمع الخطوط مثل هذا: my merged_diff = جمع {بلدي $ a = <$ fh_a>؛ بلدي $ B = <$ fh_b>؛ حلقة {إذا حددت جميع $ A، $ ب $ a = <$ fh_a>؛ } آخر {يستغرق $ ب؛ $ B = <$ fh_b>؛ }} elsif حدد $ {اسلك $ A؛ $ a = <$ fh_a>؛ } Elsif حدد $ B $ B = <$ fh_b>؛ } آخر {آخر}}}: متطلبات بيرل: perl.

PERL6 :: جمع برامج ذات صلة