نحن نقترب من ليلة عيد الميلاد وعيد الميلاد ، وهنا نقدم لك برنامج Perl البسيط الذي يمكنك من خلاله تزيين محطتك بروح عيد الميلاد.
باستخدام هذا البرنامج، يُمكنك تحويل نافذة لينكس الخاصة بك إلى ما يُشبه شجرة عيد ميلاد متحركة. ورغم أن فائدته تقتصر على الجانب الجمالي للنافذة، إلا أنه أمرٌ مُثير للاهتمام، ويمكننا استخدامه خلال أيام ديسمبر هذه. إذا كنت تقرأ هذا وترغب في تجربته، فتابع القراءة، وسأشرح لك كيفية القيام بذلك.
لعرض الشجرة في وحدة التحكم، يجب تثبيت لغة بيرل على نظامك (حيث تتم العملية). إذا كانت مثبتة لديك بالفعل، يمكنك تثبيت Acme::POE::Tree . يتطلب هذا التثبيت استخدام وحدة CPAN (شبكة أرشيف بيرل الشاملة). بعد تشغيل النظام بصلاحيات المستخدم، سنكتب سطر أوامر بسيطًا:
perl -MCPAN -e 'install Acme::POE::Tree'
بمجرد القيام بذلك، سنرى شجرة عيد الميلاد المتحركة في واجهة الأوامر بأمر بسيط للغاية:
perl -MAcme::POE::Tree -e 'Acme::POE::Tree->new()->run()'
يمكنك أيضًا تخصيص هذه الشجرة إذا رغبت في ذلك؛ ما عليك سوى تعديل شفرة المصدر لبرنامج Perl النصي وحفظها في ملف نصي (على سبيل المثال: christmas.pl) بالمحتوى التالي:
#! / البيرة / بن / بيرل
استخدم Acme :: POE :: Tree ؛
my $ tree = Acme :: POE :: Tree-> new (
{
star_delay => 1.5 ، # سطوع لمدة 1.5 ثانية
light_delay => 2 ، #Lights تومض لمدة ثانيتين
run_for => 10 ، # الخروج تلقائيًا بعد 10 ثوانٍ من العينة
}
);
شجرة $-> run () ؛
مع هذا البرنامج البسيط ، سترتدي وحدة التحكم الخاصة بك بروح عيد الميلاد ، وكالعادة ، ننتظر تعليقاتك وانطباعاتك.
عيد ميلاد سعيد!!