يمكن استخدام نوعين من المتغيرات في لغات برمجة الصدفة: أحدهما متغيرات الصدفة والآخر متغيرات البيئة. تعمل متغيرات البيئة كمتغيرات عامة للغات البرمجة النصية. يتم تخزين البيانات المتعلقة بالبيئة المستخدمة لتنفيذ البرنامج النصي في متغيرات البيئة. يتم تخزين هذه المتغيرات بناءً على زوج القيمة الرئيسية. يتم تعريف اسم المتغير بواسطة المفتاح الذي يخزن قيمة المتغير. يمكن تعيين قيمة أي متغير بيئة أو الوصول إليها بواسطة البرنامج النصي Perl. يتم عرض طرق الوصول إلى متغيرات البيئة وتعديلها باستخدام البرنامج النصي Perl في هذا البرنامج التعليمي.
استخدامات متغيرات البيئة في برنامج Perl
يتم عرض طرق الوصول إلى متغيرات البيئة المعينة أو كلها وإعادة تعيين أي متغير بيئة في هذا الجزء من البرنامج التعليمي.
المثال 1: طباعة متغيرات البيئة المحددة
يتم تخزين متغيرات البيئة في مصفوفة %ENV التي تعمل مثل المصفوفة الترابطية. اسم المتغير هو مفتاح مصفوفة %ENV ويتم تخزين القيمة في هذا المفتاح المحدد. قم بإنشاء ملف Perl باستخدام البرنامج النصي التالي الذي يقوم بطباعة ثلاثة متغيرات للبيئة. يتم تخزين اسم المستخدم الحالي لتسجيل الدخول في المتغير $ENV{'USER'}. يتم تخزين قيمة الصدفة الحالية في المتغير $ENV{'SHELL'}. يتم تخزين دليل العمل الحالي في المتغير $ENV{'PWD'}. يتم الوصول إلى هذه المتغيرات الثلاثة وطباعتها في البرنامج النصي.
#!/local/bin/Perl
استخدام صارم؛
استخدام التحذيرات.
استخدم 5.34.0؛
# اطبع قيم متغيرات البيئة الثلاثة
يقول 'اسم المستخدم هو' . $البيئة { 'مستخدم' } ;
يقول 'القشرة الحالية هي' . $البيئة { 'صدَفَة' } ;
يقول 'دليل العمل الحالي هو' . $البيئة { 'الأشخاص ذوي الإعاقة' } ;
انتاج:
يظهر الإخراج المماثل التالي بعد تنفيذ البرنامج النصي:
المثال 2: طباعة متغيرات البيئة الخمسة الأولى
قم بإنشاء ملف Perl باستخدام البرنامج النصي التالي لقراءة القيم الخمس الأولى لمصفوفة %ENV التي تحتوي على كافة متغيرات البيئة. هنا، يتم استخدام حلقة 'foreach' لقراءة كافة متغيرات البيئة بناءً على قيم المفاتيح التي تم فرزها. يتم استخدام المتغير '$counter' في البرنامج النصي لإنهاء الحلقة بعد طباعة متغيرات البيئة الخمسة. تتم زيادة المتغير '$counter' في كل تكرار للحلقة وعندما تكون قيمة '$counter' هي 5، يتم تنفيذ العبارة 'last' للخروج من الحلقة.
#!/local/bin/Perlاستخدام صارم؛
استخدام التحذيرات.
استخدم 5.34.0؛
#تهيئة العداد
لي $عداد = 0 ;
# كرر الحلقة لقراءة كافة متغيرات البيئة
com.foreach ( نوع مفاتيح % بيئى ) {
#اقرأ اسم متغير البيئة
لي مفتاح $ = $_ ;
#اقرأ قيمة متغير البيئة
لي قيمة $ = $البيئة { مفتاح $ } ;
# اطبع اسم المتغير بالقيمة
يقول ' مفتاح $ => قيمة $ ' ;
#زيادة العداد
$عداد ++;
# التحقق من قيمة العداد
لو ( $عداد > = 5 )
{
#إنهاء من الحلقة
آخر ;
}
}
انتاج:
يظهر الإخراج المماثل التالي بعد تنفيذ البرنامج النصي:
المثال 3: إعادة تعيين متغير البيئة
في الأمثلة السابقة، يتم الوصول إلى القيم المحددة مسبقًا لمتغيرات البيئة بشكل فردي وباستخدام حلقة. ومع ذلك، يمكن تغيير قيمة أي متغير بيئة باستخدام البرنامج النصي Perl. قم بإنشاء ملف Perl باستخدام البرنامج النصي التالي الذي يطبع موقع HOME، ويغير الموقع إلى '/temp/files'، ويطبع موقع HOME مرة أخرى بعد التحديث.
#!/local/bin/Perlاستخدام صارم؛
استخدام التحذيرات.
استخدم 5.34.0؛
# اطبع قيمة متغير البيئة المعين
يقول 'القيمة الحالية للمنزل هي' . $البيئة { 'بيت' } ;
# إعادة تعيين متغير البيئة
$البيئة { 'بيت' } = '/درجة الحرارة/الملفات' ;
# اطبع قيمة متغير البيئة المعين بعد التحديث
يقول 'القيمة الحالية للمنزل هي' . $البيئة { 'بيت' } ;
انتاج:
يظهر الإخراج المماثل التالي بعد تنفيذ البرنامج النصي:
المثال 4: طباعة متغيرات البيئة بالتنسيق
قم بإنشاء ملف Perl باستخدام البرنامج النصي التالي الذي يطبع متغيرات البيئة بالتنسيق باستخدام الدالة printf(). هنا، يتم استخدام حلقة 'foreach' لقراءة كافة متغيرات البيئة كما في المثال السابق. تتم طباعة زوج المفتاح والقيمة لمتغير البيئة عن طريق إضافة النقطتين (:) بين المفتاح والقيمة، والحفاظ على مسافة 15 حرفًا للمفتاح.
#!/local/bin/Perlاستخدام صارم؛
استخدام التحذيرات.
استخدم 5.34.0؛
# كرر الحلقة لقراءة كافة متغيرات البيئة
foreach بلدي $ ك ( نوع مفاتيح % بيئى ) {
# اطبع المخرجات المنسقة لمتغيرات البيئة
printf ( '%15s : %s \ن ' , $ ك , $البيئة { $ ك } ) ;
}
انتاج:
يظهر الإخراج المماثل التالي بعد تنفيذ البرنامج النصي. يتم عرض بعض الأجزاء في بداية الإخراج هنا:
خاتمة
يتم استخدام متغيرات البيئة لأغراض مختلفة، وفي بعض الأحيان يكون مطلوبًا تغيير القيمة الحالية لمتغير بيئة معين لأي غرض برمجي. يتم عرض طرق الحصول على قيم متغيرات البيئة وتعيينها باستخدام البرنامج النصي Perl في أمثلة هذا البرنامج التعليمي لمساعدة مستخدمي Perl.