التجزئة ::
التحميل الان

التجزئة :: الترتيب والملخص

التجزئة :: العلامات

الوحدة النمطية بيرل مجالات صفائف pseudo-hashes. قائمة الحقول

التجزئة :: وصف

يحتوي الوحدة النمطية التجزئة :: التجزئة الزائفة كصفوفات مرتبطة ب "نوع" (قائمة الحقول). يحتوي الوحدة النمطية التجزئة على التجزئة :: الفحص الزائف كصفوفات مرتبطة ب "نوع" (قائمة الحقول) .Synopsis استخدم Hash :: Type؛ # قم بإنشاء Hash :: اكتب My PerientType = New Hash :: Type (QW (الاسم الأول Lastname City))؛ # إنشاء وملء بعض التجزئة مرتبطة بربط شخص ما Beoltype Wolfgang، Perienype $، "Wolfgang Amadeus"، "Mozart"، "سالزبورغ"؛ $ Ludwig = شخص جديد جديد ("Ludwig"، "Van Beethoven"، "فيينا")؛ $ JSB = جديد $ personype؛ $ JSB -> {city} = "لايبزج"؛ @ {$ JSB} {qw (الاسم الأول اسم العائلة)} = ("Johann Sebastian"، "Bach")؛ # إضافة الحقول ديناميكيا $ persontype-> إضافة ("ولادة"، "الموت") أو يموت "الحقول غير تضاف"؛ $ wolfgang {الولادة} = 1750؛ # مثال أكثر اكتمالا: اقرأ ملف مسطح مع رؤوس في السطر الأول لي (Headerline، @ datalines) = خريطة {chomp؛ $ _}؛ بلدي $ ht = new hash :: النوع (تقسيم / t /، headerline)؛ foreach Line $ (datalines) {بيانات $ $ = $ ht جديد (سبليت / تي / تي /، خط $)؛ Work_With (بيانات $ -> {somefield}، $ البيانات -> {shaceotherfield})؛ } # بديل للوقت :: gmtime ووقت :: LocalTime My TimeType = New Hash :: Type QW (Sec Min Hour Mday Year Year Wday Yday)؛ بلدي Localtime Local = TimeType $ $ (LocalTime)؛ بلدي $ gmtime = timeType دولار جديد (gmtime)؛ طباعة $ Localtime -> {ساعة} - $ gmtime -> {ساعة}، "الفارق ساعات بتوقيت جرينتش"؛ # مقارنة وظائف بلدي $ byage = $ persontype-> cmp ("الولادة: -num، lastname، الاسم الأول")؛ طينتي $ الثانيم = $ persontype-> cmp (lastname => {طول الطول ($ b)}، lastname => 'alpha'، الاسم الأول => 'alpha')؛ ShowPerson ($ _) foreach (فرز $ byageBeople)؛ ShowPerson ($ _) foreach (فرز $ الثانيمفة # مقارنات خاصة: تواريخ بلدي US_DATECMP = $ myhashtype-> cmp ("somedatefield: m / d / y")؛ بلدي $ fr_inversedatecmp = $ myhashtype-> cmp ("somedateffield: -d.m.y")؛ متطلبات: perl.

التجزئة :: برامج ذات صلة