تجزئة بيرل

التجزئة عبارة عن مجموعة من أزواج المفاتيح/القيمة .

تبدأ متغيرات التجزئة في لغة Perl بعلامة النسبة المئوية (%).

الوصول إلى تنسيق عنصر التجزئة: ${key} .

فيما يلي مثال بسيط للتجزئة:

مثال

#!/usr/bin/Perl % data = ( ' google ' , ' google.com ' , ' codercto ' , ' codercto.com ' , ' taobao ' , ' taobao.com ' ) ؛ " $ data{'google'} = $ data {'google'} n " ; " $ data {'codercto'} = $data {'codercto'} n " ; " $ data{'taobao'} = $data {'taobao'} n " ;

بتنفيذ البرنامج أعلاه تكون نتيجة الإخراج هي:

قم بإنشاء تجزئة

هناك طريقتان لإنشاء التجزئة:

1. قم بتعيين القيمة لكل مفتاح

 $data{'google'} = 'google.com';$data{'codercto'} = 'codercto.com';$data{'taobao'} = 'taobao.com';

2. الإعداد من خلال القائمة

العنصر الأول في القائمة هو المفتاح، والعنصر الثاني هو القيمة.

 %data = ('google', 'google.com', 'codercto', 'codercto.com', 'taobao', 'taobao.com');

يمكنك أيضًا استخدام الرمز => لتعيين المفتاح/القيمة:

 %data = ('google'=>'google.com', 'codercto'=>'codercto.com', 'taobao'=>'taobao.com');

المثال التالي هو نسخة مختلفة من المثال أعلاه، وذلك باستخدام - بدلاً من علامات الاقتباس:

 %data = (-google=>'google.com', -codercto=>'codercto.com', -taobao=>'taobao.com');

بهذه الطريقة، لا يمكن أن تظهر المسافات في المفتاح. طريقة قراءة العناصر هي:

 $val = $data{-google}$val = $data{-codercto}

الوصول إلى عناصر التجزئة

الوصول إلى تنسيق عنصر التجزئة: ${key} ، المثال كما يلي:

مثال

#!/usr/bin/Perl %data = ( ' google ' => ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' => ' taobao.com ' ) ; " $ data{'google'} = $ data {'google'} n " ; " $ data {'codercto'} = $data {'codercto'} n " ; " $ data{'taobao'} = $data {'taobao'} n " ;

بتنفيذ البرنامج أعلاه تكون نتيجة الإخراج هي:

قراءة قيمة التجزئة

يمكنك استخراج القيم من التجزئة تمامًا مثل المصفوفة.

يتم استخراج قيمة التجزئة في تنسيق بناء جملة المصفوفة: @{key1,key2} .

مثال

#!/uer/bin/Perl %data = ( - تاوباو => 45 - جوجل => 30 - كودركتو => 40 ) ; @array = @data { - تاوباو , - كوديرتو } ; " المصفوفة : @array n " ;

بتنفيذ البرنامج أعلاه تكون نتيجة الإخراج هي:

 المصفوفة: 45 40

قراءة مفتاح التجزئة والقيمة

قراءة كافة المفاتيح

يمكننا استخدام وظيفة المفاتيح لقراءة جميع مفاتيح التجزئة. بناء الجملة كما يلي:

 مفاتيح٪ هاش

تقوم هذه الدالة بإرجاع مصفوفة من كافة المفاتيح لجميع التجزئات.

مثال

#!/usr/bin/Perl %data = ( ' google ' => ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' => ' taobao.com ' ) @names = key طباعة البيانات​ " $names [ 0] n " ; " $names [ 1] n " ; " $أسماء [2] n " ;

بتنفيذ البرنامج أعلاه تكون نتيجة الإخراج هي:

 com.taobaogooglecodercto

وبالمثل، يمكننا استخدام وظيفة القيم لقراءة جميع قيم التجزئة. يكون تنسيق بناء الجملة كما يلي:

 القيم٪ هاش

تقوم هذه الوظيفة بإرجاع مصفوفة من كافة القيم لجميع التجزئات.

مثال

#!/usr/bin/Perl %data = ( ' google ' => ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' => ' taobao.com ' ) @urls = value طباعة البيانات​ " $urls [0] n " ; " $urls [1] n " ; " $urls [2] n " ;

بتنفيذ البرنامج أعلاه تكون نتيجة الإخراج هي:

 taobao.comcodercto.comgoogle.com

تحقق من وجود العنصر

إذا قرأت زوج مفتاح/قيمة غير موجود في التجزئة، فسيتم إرجاع قيمة غير محددة وسيظهر تحذير أثناء التنفيذ.

لتجنب هذا الموقف، يمكننا استخدام الدالة الموجودة لتحديد ما إذا كان المفتاح موجودًا أم لا وقراءته عند وجوده:

مثال

#!/usr/bin/Perl %data = ( ' google ' => ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ؛ موجود ( $data { ' facebook ' } ) ) { مطبعة " عنوان URL للفيسبوك هو $data {'facebook'} n " } آخر { مطبعة " مفتاح الفيسبوك غير موجود n " }

بتنفيذ البرنامج أعلاه تكون نتيجة الإخراج هي:

 مفتاح الفيسبوك غير موجود

في الكود أعلاه، استخدمنا عبارة IF...ELSE ، والتي سنقدمها بالتفصيل في الفصول التالية.

الحصول على حجم التجزئة

حجم التجزئة هو عدد العناصر، يمكننا الحصول على حجم التجزئة عن طريق الحصول أولاً على جميع مصفوفات العناصر ذات المفتاح أو القيمة، ثم حساب عدد عناصر المصفوفة، والمثال كما يلي:

مثال

#!/usr/bin/Perl %data = ( ' google ' => ' google.com ' , ' codercto ' => ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) @keys = keys %data ؛ حجم $ = @keys ؛ " 1 - حجم التجزئة : $ size n " ; %data ؛ $ size = @values ​​​​؛ " 2 - حجم التجزئة: $size n " ;

بتنفيذ البرنامج أعلاه تكون نتيجة الإخراج هي:

 1 - حجم التجزئة: 32 - حجم التجزئة: 3

إضافة أو إزالة عناصر من التجزئة

يمكن إضافة أزواج المفاتيح/القيمة من خلال مهمة بسيطة. ولكن لحذف عنصر التجزئة، يلزمك استخدام وظيفة الحذف :

مثال

#!/usr/bin/Perl %data = ( ' google ' => ' google.com ' , ' codercto ' => ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) @keys = keys %data ؛ حجم $ = @keys ؛ " 1 - حجم التجزئة: $size n " # إضافة عناصر $ data { ' facebook ' } = ' facebook.com ' ;​​ %data ؛ حجم $ = @keys ؛ " 2 - حجم التجزئة: $size n " # إزالة العناصر من التجزئة يمسح $ data { ' تاوباو ' } @keys = key %data ؛ حجم $ = @keys ؛ " 3 - حجم التجزئة: $size n " ;

بتنفيذ البرنامج أعلاه تكون نتيجة الإخراج هي:

 1 - حجم التجزئة: 32 - حجم التجزئة: 43 - حجم التجزئة: 3