التاريخ :: الإجازات :: PT تحديد أيام العطل الرسمية البرتغالية
التحميل الان

التاريخ :: الإجازات :: PT الترتيب والملخص

التاريخ :: الإجازات :: PT العلامات

الوحدة النمطية بيرل بيرل إجازات رسمية العطلات البرتغالية العطلات البرتغالية

التاريخ :: الإجازات :: PT وصف

تحديد الأعياد الرسمية البرتغالية التاريخ :: الإجازات :: PT - تحديد البرتغالية العطلات العامة بلدي (سنويا، شهر دولار، $ Day) = (Localtime) ؛ سنة + = 1900؛ شهر $ + = 1؛ طباعة "Woohoo" إذا is_pt_holiday ($ السنة، شهر دولار، $ Day)؛ بلدي $ h = pt_holidays ($ السنة)؛ printf "1 يناير اسمه ' s' "، $ h -> {'0101'}؛ وظائفNewReates تاريخ جديد :: عطلات: PT كائن. بلدي $ mh = التاريخ :: العطلات :: pt-> جديد ()؛ is_holidayshould على الأقل تأخذ ثلاث حجج: السنة ( أربعة أرقام) شهر (بين 1-12) اليوم (بين 1-31) هي قيمة الإرجاع من IS_HOLIDAY إما 1 أو 0 (1 إذا كان التاريخ المحدد هو عطلة، 0 خلاف ذلك). إذا ($ mh-> is_holiday (سنة $، $ شهر، $ Day)) {# إنها عطلة} is_pt_holidaysimilar على is_holiday، ولكن بدلا من العودة 1 إذا كان التاريخ يعود عطلة سلسلة تضم اسم العطلات. في حالة عطلتين أو أكثر في نفس اليوم (مهلا، يحدث ذلك)، ستتأمل السلسلة اسم كل تلك الإجازات مفصولة بفاصلة منقوطة. بلدي $ todays_holiday = $ MH-> is_pt_holiday ($ السنة، شهريا، $ Day)؛ إذا ($ today_holly ) {print "اليوم هو $ today_holiday. لا تهتم الاستيقاظ! "؛} Holdaysshould اتخذ حجة واحدة على الأقل: سنة (أربعة أرقام) بإرجاع إشارة إلى التجزئة، حيث يتم تمثيل المفاتيح تاريخا كأربعة أرقام، أول شهرين يمثلان (01-12) واليوم الأخير الثاني (01) -31). القيمة الخاصة بالمفتاح المعني هو الاسم المحلي للعطلة المشار إليها في اليوم. في حالة حدوث عطلتين أو أكثر في نفس اليوم (نعم، يحدث ذلك!)، ستكون القيم اسم كل تلك الإجازات مفصولة بفاصلة منقوطة. بلدي quents_holidays = العطلات ($ السنة)؛ ل (Keys $ years_holidays) {My (Day $، $ شهر) = /(..)(..)/؛ طباعة "$ Day / شهر $ - $ years_holidays -> $ _ "؛ } متطلبات: perl.

التاريخ :: الإجازات :: PT برامج ذات صلة