مصفوفة بيرل

مصفوفة Perl عبارة عن متغير قائمة يخزن القيم العددية، ويمكن أن تكون المتغيرات من أنواع مختلفة.

تبدأ متغيرات المصفوفة بـ @. للوصول إلى عناصر المصفوفة، استخدم تنسيق $ + اسم المتغير + [قيمة الفهرس] للقراءة. المثال كما يلي:

مثال

#!/usr/bin/Perl @hits = ( 25 , 30 , 40 ) ; @names = ( " google " , " codercto " , " taobao " ) ;​ " $ hits [0] = $ hits [0] n " ; " $ hits [1] = $ hits [1] n " ; " $ hits [2] = $ hits [2] n " ; " $ names [0] = $names [0] n " ; " $ الأسماء[1] = $ الأسماء [1] n " ؛ " $ الأسماء[2] = $الأسماء [2] n " ;

في البرنامج، يتم تخطي الرمز $ باستخدام ، مما يسمح بإخراجه كما هو.

 $hits[0] = 25$hits[1] = 30$hits[2] = 40$names[0] = google$names[1] = codercto$names[2] = تاوباو

إنشاء مجموعة

تبدأ متغيرات المصفوفة بالرمز @ ، ويتم وضع العناصر بين قوسين. يمكنك أيضًا تعريف مصفوفة تبدأ بـ qw .

 @array = (1, 2, 'Hello');@array = qw/هذه مصفوفة/;

يستخدم المصفوفة الثانية عامل التشغيل qw// ، الذي يُرجع قائمة من السلاسل مع عناصر المصفوفة مفصولة بمسافات. بالطبع، يمكنك أيضًا استخدام أسطر متعددة لتحديد مصفوفة:

 @days = qw/googletaobao...codercto/;

يمكنك أيضًا تعيين قيم لمصفوفة حسب الفهرس، كما يلي:

 $array[0] = 'الاثنين';...$array[6] = 'الأحد';

الوصول إلى عناصر المصفوفة

للوصول إلى عناصر المصفوفة، استخدم تنسيق $ + اسم المتغير + [قيمة الفهرس] للقراءة. المثال كما يلي:

مثال

@sites = qw / google تاوباو codercto / طباعة " $مواقع [0] n " ; " $مواقع [1] n " ; " $مواقع [2] n " ; " $sites [-1] n " ; # رقم سالب، يُقرأ في الاتجاه المعاكس

 com.googletaobaocoderctocodercto

تبدأ قيم فهرس المصفوفة من 0، أي أن 0 هو العنصر الأول، و1 هو العنصر الثاني، وهكذا.

تتم قراءة الأرقام السالبة من الاتجاه المعاكس، -1 هو العنصر الأول، -2 هو العنصر الثاني

رقم تسلسل المصفوفة

يوفر Perl تنسيق مصفوفة يمكن إخراجه بالتسلسل، ويكون التنسيق بقيمة البداية + .. + القيمة النهائية ، والمثال كما يلي:

مثال

#!/usr/bin/Perl @ var_1 0 = ( 1 . .10 ) ; @ var_2 0 = ( 10 . .20 ) ;​​​​​​​" @var_10 n " # الإخراج من 1 إلى 10 مطبعة " @var_20 n " # الإخراج من 10 إلى 20 مطبعة " @var_abc n " ; # الإخراج من a إلى z

 1 2 3 4 5 6 7 8 9 1010 11 12 13 14 15 16 17 18 19 20a bcdefghijklmnopqrstuv wxyz

حجم المصفوفة

يتم تحديد حجم المصفوفة من خلال السياق العددي داخل المصفوفة. :

 @array = (1,2,3);print "حجم المصفوفة: ",scalar @array,"n";

طول المصفوفة يُرجع الحجم الفعلي للمصفوفة، وليس عدد العناصر، يمكننا أن نرى المثال التالي:

مثال

#!/uer/bin/Perl @array = ( 1 , 2 , 3 ) ; $ array [ 50 ] = 4 ;​​​​​​​​" حجم المصفوفة: $size n " ; " الحد الأقصى للفهرس: $max_index n " ;

 حجم المصفوفة: 51 الحد الأقصى للمؤشر: 50

كما يتبين من الإخراج، هناك أربعة عناصر فقط من المصفوفة، ولكن حجم المصفوفة هو 51.

إضافة وإزالة عناصر المصفوفة

يوفر Perl بعض الوظائف المفيدة لإضافة وإزالة عناصر المصفوفة.

إذا لم تكن لديك خبرة في البرمجة من قبل، فيمكنك أن تسأل ما هي الوظيفة؟ في الواقع، الطباعة التي استخدمناها من قبل هي وظيفة إخراج.

يسرد الجدول التالي وظائف العملية شائعة الاستخدام في المصفوفات:

رقم سري	النوع والوصف
1	ادفع @ARRAY، LIST ضع قيمة القائمة في نهاية المصفوفة
2	البوبARRAY قم بإخراج القيمة الأخيرة للمصفوفة وإعادتها
3	التحول @ARRAY ينبثق القيمة الأولى للمصفوفة ويعيدها. يتم أيضًا تقليل قيمة فهرس المصفوفة بمقدار واحد.
4	قم بإلغاء إزاحة @ARRAY، LIST يضع القائمة أمام المصفوفة ويعيد عدد العناصر في المصفوفة الجديدة.

مثال

#!/usr/bin/Perl # إنشاء مصفوفة بسيطة @sites = ( " google " ، " codercto " ، " taobao " ) ؛ طباعة " 1. @ sites = @sites n " ; # أضف عنصرًا إلى نهاية المصفوفة ادفع ( @sites ، " baidu " ) ؛ اطبع " 2. @ sites = @sites n " ; # أضف عنصرًا إلى بداية المصفوفة unshift ( @sites ، " weibo " ) ؛ طباعة " 3. @ sites = @sites n " # حذف العناصر الموجودة في نهاية المصفوفة طباعة ( @sites ) ؛​ " 4. @ sites = @sites n " # إزالة العناصر في بداية المصفوفة التحول ( @المواقع ) ؛ طباعة " 5. @ المواقع = @sites n " ;

قطع المصفوفة

يمكننا قطع مصفوفة وإرجاع المصفوفة الجديدة بعد القطع:

مثال

#!/usr/bin/Perl @sites = qw/ google تاوباو codercto weibo qq facebook Netease / ; @sites2 = @sites [ 3 , 4 , 5 ] ; " @sites2 n " ;

 ويبو كيو كيو فيسبوك

يحتاج فهرس المصفوفة إلى تحديد قيمة فهرس صالحة، والتي يمكن أن تكون رقمًا موجبًا متبوعًا برقم سالب، ويتم فصل كل قيمة فهرس بفاصلة.

إذا كان فهرسًا مستمرًا، فيمكنك استخدام .. للإشارة إلى النطاق المحدد:

مثال

#!/usr/bin/Perl @sites = qw / google تاوباو codercto weibo qq facebook Netease / ; @sites2 = @sites [ .5 ] ; " @sites2 n " ;

 ويبو كيو كيو فيسبوك

استبدال عناصر المصفوفة

يتم استخدام وظيفة splice() لاستبدال عناصر المصفوفة في Perl. تنسيق بناء الجملة كما يلي:

 لصق @ARRAY، إزاحة [، الطول [، القائمة] ]

وصف المعلمة:

@ARRAY: المصفوفة المراد استبدالها.

الإزاحة: موضع البداية.

الطول: عدد العناصر المراد استبدالها.

القائمة: قائمة العناصر البديلة.

يستبدل المثال التالي 5 عناصر في مصفوفة بدءًا من العنصر السادس:

مثال

#!/usr/bin/Perl @nums = ( 1 . .20 ) ;​ " قبل الاستبدال - @nums n " ; لصق ( @nums , 5 , 5 , 21 . .25 ) ; " بعد الاستبدال - @nums n " ;

 قبل الاستبدال - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 بعد الاستبدال - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

تحويل السلسلة إلى صفيف

لتحويل سلسلة إلى مصفوفة في لغة Perl، استخدم الدالة Split()، ويكون بناء الجملة كما يلي:

 انقسام [النمط [، EXPR [، الحد]]]

وصف المعلمة:

النمط: المحدد، الافتراضي هو المساحة.

EXPR: حدد عدد السلاسل.

LIMIT: إذا تم تحديد هذه المعلمة، فسيتم إرجاع عدد العناصر الموجودة في المصفوفة.

مثال

#!/usr/bin/Perl #تعريف السلسلة $var_test = " codercto " ; $var_string = " www-codercto-com " ; $var_names = " google ,taobao,codercto,weibo " # تحويل السلسلة إلى مصفوفة @test = Split ( ' ' , $ var_test ) ; @string = Split ( ' - ' , $ var_string ) ;​​​​​​​​​​" $test [3] n " ; مطبعة " $string [2] n " ; مطبعة " $names [3] n " ;

 com.ocomweibo

تحويل المصفوفة إلى سلسلة

في لغة Perl، يتم استخدام الدالة join() لتحويل المصفوفة إلى سلسلة.

 انضم إلى EXPR، القائمة

وصف المعلمة:

إكسبر: موصل.

القائمة: القائمة أو المصفوفة.

مثال

#!/usr/bin/Perl #تعريف السلسلة $var_string = " www-codercto-com " ; $var_names = " google ,taobao,codercto,weibo " # تحويل السلسلة إلى مصفوفة @string = Split ( ' - ' , $var_string ) ; @names = Split ( ' , ' , $var_names ) # تحويل المصفوفة إلى سلسلة $string1 = الانضمام ( ' - ' ، @خيط ) ; $string2 = الانضمام ( ' ، ' ، @الأسماء ) ؛ مطبعة " $string1 n " ؛ طباعة " $string2 n " ;

 www-codercto-comgoogle,taobao,codercto,weibo

فرز المصفوفة

يستخدم فرز المصفوفات في لغة Perl الدالةsort()، ويكون بناء الجملة كما يلي:

 فرز قائمة [الروتين الفرعي].

وصف المعلمة:

روتين فرعي: تحديد القواعد.

القائمة: القائمة أو المصفوفة.

مثال

#!/usr/bin/Perl #تعريف المصفوفة @sites = qw( google taobao codercto facebook ) ; print " قبل الفرز: @sites n " ; # قم بفرز المصفوفة @sites = فرز ( @sites ) ؛ طباعة " بعد الفرز: @sites n " ;

 قبل الفرز: google taobao codercto facebook بعد الفرز: facebook google codercto taobao

ملاحظة: يعتمد فرز المصفوفات على قيم ASCII الرقمية. لذلك عندما نقوم بفرز المصفوفة، فمن الأفضل تحويل كل عنصر إلى أحرف صغيرة قبل الفرز.

المتغيرات الخاصة: $[

يمثل المتغير الخاص $[ قيمة الفهرس الأول للمصفوفة، والتي تكون بشكل عام 0. إذا قمنا بتعيين $[ على 1، فإن قيمة الفهرس الأول للمصفوفة هي 1، والثانية هي 2، وهكذا. الأمثلة هي كما يلي:

مثال

#!/usr/bin/Perl #تعريف المصفوفة @sites = qw( google taobao codercto facebook ) ; print " مواقع الويب: @sites n " # اضبط الفهرس الأول للمصفوفة على 1 $ [ = 1 ; " @ المواقع[1]: $ sites [1] n " ; " @ المواقع[2]: $sites [2] n " ;

 الموقع الإلكتروني: google taobao codercto facebook@sites[1]: google@sites[2]: taobao

بشكل عام، لا ننصح باستخدام المتغير الخاص $[ في الإصدار الجديد من Perl، تم التخلي عن هذا المتغير.

دمج المصفوفات

يتم فصل عناصر المصفوفة بفواصل، ويمكننا أيضًا استخدام الفواصل لدمج المصفوفات، كما هو موضح أدناه:

مثال

#!/usr/bin/Perl @numbers = ( 1 , 3 , ( 4 , 5 , 6 ) ) ; اطبع " أرقام = @numbers n " ;

 الأرقام = 1 3 4 5 6

من الممكن أيضًا تضمين مصفوفات متعددة داخل مصفوفة ودمجها في المصفوفة الرئيسية:

مثال

#!/usr/bin/Perl @odd = ( 1 , 3 , 5 ) ; @even = ( 2 , 4 , 6 ) ; @numbers = ( @odd , @even ) ;​ " أرقام = @numbers n " ;

 الأرقام = 1 3 5 2 4 6

حدد العنصر من القائمة

يمكن استخدام القائمة كمصفوفة، حيث يمكن تحديد قيمة الفهرس بعد أن تتمكن القائمة من قراءة العنصر المحدد، كما هو موضح أدناه:

مثال

#!/usr/bin/Perl $ var = ( 5 , 4 , 3 , 2 , 1 ) [ 4 ] ; " قيمة var هي = $var n "

 قيمة فار هي = 1

وبالمثل، يمكننا استخدام .. في مصفوفة لقراءة العناصر في نطاق محدد:

مثال

#!/usr/bin/Perl @list = ( 5 , 4 , 3 , 2 , 1 ) [ .3 ] ;​​​ " قيمة القائمة = @list n " ;

 قيمة القائمة = 4 3 2