وحدة بيرل

#!/usr/bin/env perl # يقوم بتحميل الوحدة واستيراد أي دوال إلى مساحة الاسم الخاصة بنا # (الافتراضي هو "main") التي تصدرها الوحدة. تُصدّر Hello::World # الدالة hello() افتراضيًا. يمكن عادةً التحكم في عمليات التصدير من قِبل المُستدعي. use Hello::World ;print hello (); # يطبع "مرحباً بالعالم!\n" print hello ( "درب التبانة" ); # يطبع "مرحباً، درب التبانة!\n"

# "package" هو نطاق الاسم الذي توجد فيه وظائف/بيانات الوحدة. # يحدد اسم الملف إذا كنت ترغب في "استخدامه". # إذا كان الاسم يتكون من أكثر من كلمة، فإنه يقيد موقع الوحدة.حزمة Hello::World ;# بشكل افتراضي، يسمح لك Perl باستخدام المتغيرات دون تعريفها . # قد يكون هذا مناسبًا للبرامج النصية القصيرة والأسطر البرمجية الواحدة. # ولكن في وحدة برمجية أطول، مثل وحدة نمطية، من الحكمة تعريف # متغيراتك لاكتشاف الأخطاء الإملائية وتقييد # إمكانية الوصول إليها بشكل مناسب من خارج الوحدة النمطية. # يجبرك التوجيه البرمجي strict على تعريف متغيراتك. use strict ; # وبالمثل، لا يُصدر Perl معظم تحذيرات المُصرّف أو وقت التشغيل بشكل افتراضي. # عادةً ما تجد البرامج النصية الأكثر تعقيدًا، مثل معظم الوحدات النمطية، هذه التحذيرات مفيدة جدًا # لتصحيح الأخطاء. يُفعّل التوجيه البرمجي warnings التحذيرات الاختيارية. use warnings ; # يتم تخزين رقم إصدار الوحدة النمطية في $ModuleName::VERSION؛ وتعتمد بعض # أشكال الأمر "use" المدمج على تعريف هذا المتغير.$ VERSION = '1.00' ;# يرث من وحدة "Exporter" التي تتولى تصدير الدوال. # تستخدم معظم الوحدات الإجرائية هذه الوحدة.استخدم القاعدة 'Exporter' ؛# عند استدعاء الوحدة، يتم تصدير الدالة "hello" افتراضيًا إلى # مساحة اسم الكود المستخدم.our @EXPORT = qw(hello) ;# تشير الأسطر التي تبدأ بعلامة يساوي إلى توثيق POD المضمن. # تنتهي أقسام POD بتوجيه =cut، ويمكن دمجها بحرية تقريبًا مع التعليمات البرمجية العادية.=الاسم الأولمرحباً بالعالم - تغليف لرسالة إخراج شائعة=head1 ملخص استخدم Hello::World؛  اطبع hello()؛  اطبع hello("Milky Way")؛=head1 الوصفهذه وحدة إجرائية تعطيك رسالة "مرحباً بالعالم!" الشهيرة، وهي قابلة للتخصيص أيضاً!=وظائف head2يتم تصدير الوظائف التالية افتراضياً=head3 مرحباً اطبع hello();  اطبع hello($target);يُعيد هذا الأمر التحية الشهيرة. إذا تم تحديد C<$target> فسيتم استخدامه، وإلا فإن "world" هو هدف تحيتك.=ut# تعريف الدالة hello().sub hello { my $target = shift ; $target = 'world' unless defined $target ; return "Hello, $target!\n" ; }=الرأس1 المؤلفجو هاكر <joe@joehacker.org>=ut# يجب أن تنتهي وحدة Perl بقيمة صحيحة، وإلا فسيتم اعتبارها غير محملة. # عادةً ما تكون هذه القيمة 1، على الرغم من أنها يمكن أن تكون أي قيمة صحيحة. # يمكن أن تنتهي الوحدة بقيمة خاطئة للإشارة إلى الفشل، ولكن # نادرًا ما يُستخدم هذا، وبدلاً من ذلك سيتم إنهاء البرنامج بـ die() (الخروج مع وجود خطأ). 1 ;

معروف!/usr/bin/env perlاستخدم Hello::World ؛ my $hello = Hello::World- > new ؛ $hello- > print ؛ # يطبع "Hello, world!\n" $hello- > target ( "Milky Way" )؛ $hello- > print ؛ # يطبع "Hello, Milky Way!\n"my $greeting = Hello::World- > new ( target => "Pittsburgh" ); $greeting- > print ; # يطبع "Hello, Pittsburgh!\n" $hello- > print ; # لا يزال يطبع "Hello, Milky Way!\n"

# في لغة بيرل، لا يوجد تعريف خاص لـ "الفئة". مساحة الاسم هي فئة. package Hello::World ;استخدم الوضع الصارم ؛ استخدم التحذيرات ؛ $ VERSION = "1.00" ؛=head1 الاسم: Hello::World - تغليف لرسالة إخراج شائعة =head1 الملخص:  use Hello::World;  my $hello = Hello::World->new();  $hello->print; =head1 الوصف: هذه مكتبة كائنية التوجه يمكنها طباعة رسالة "HW" الشهيرة. =head2 الطرق =head3 new  my $hello = Hello::World->new();  my $hello = Hello::World->new( target => $target ); يُنشئ كائنًا يحتوي على رسالة ترحيب. إذا تم تمرير C<$target>، فسيتم تمريره إلى C<< $hello->target >>. =cut # يُسمى مُنشئ الكائن new() اصطلاحًا. يمكن لأي # طريقة إنشاء كائن ويمكنك إنشاء العدد الذي تريده. sub new { my ( $class , %args ) = @_ ; my $self = bless ({}, $class ); my $target = exists $args { target } ? $args { target } : "world" ; $self -> { target } = $target ; return $self ; } =head3 target  my $target = $hello->target;  $hello->target($target); يحصل على الهدف الحالي لرسالتنا ويضبطه. =cut sub target { my $self = shift ; if ( @_ ) { my $target = shift ; $self -> { target } = $target ; }return $self -> { target }; } =head3 to_string  my $greeting = $hello->to_string; تُرجع $greeting كسلسلة نصية =cut sub to_string { my $self = shift ; return "Hello, $self->{target}!" ; } =head3 print  $hello->print; تُخرج التحية إلى STDOUT =cut sub print { my $self = shift ; print $self -> to_string (), "\n" ; } =head1 AUTHOR Joe Hacker <joe@joehacker.org> =cut 1 ;