بيرل - الإدخال / الإخراج الأساسي

بيرل - المدخلات والمخرجات القياسية

يسمح لك Perl بالكتابة إلى الإخراج القياسي ، يسمى STDOUT وقراءة الإدخال القياسي (STDIN). يتم توفير هذين الواصفين بواسطة نظام التشغيل ، مما يتيح قراءة مدخلات لوحة المفاتيح وعرض البيانات على الشاشة. في الواقع ، يعتمد Perl على أنظمة UNIX ، والتي يعتبر إدخال المدخلات بمثابة ملفات.

على سبيل المثال ، على خادم الويب باستخدام البرامج النصية CGI ، الإدخال القياسي هو طلب HTTP ، والإخراج القياسي هو استجابة HTTP.

قراءة المدخلات القياسية

تتوفر البيانات الواردة من الإدخال القياسي (المحدد بواسطة نظام التشغيل) في بيئة Perl عبر الواصف. وبهذه الطريقة ، من الممكن استعادة (سطر بسطر) محتويات هذا الواصف باستخدام متغير محدد ومشغل تعيين:

 $ var = 

من الممكن أيضًا استخدام متغير صفيف سنقوم بربط كل سطر به:

 @ فار = 

بهذه الطريقة ، من خلال حلقة ، يمكنك استرداد جميع أسطر الإدخال القياسي. عندما لا يكون هناك خطوط أخرى متوفرة في الإدخال القياسي ، فإنها تُرجع القيمة "undef" ، مما يعني أنه لم يتم تعيين قيمة ، وتنتهي الحلقة. مثال على حلقة:

 بينما ($ var =) {// تعليمات} 

الكتابة إلى stdout

للكتابة إلى الإخراج القياسي ، استخدم فقط وظيفة print ():

 $ var = 'Hello'؛ print ($ var. 'world')؛ 

هذه التعليمات لها تأثير إرسال السلسلة "Hello World" إلى الإخراج القياسي. هنا تم استخدام عامل التسلسل (".") لربط السلاسل اثنين. من الممكن أيضًا استخدام علامات الاقتباس المزدوجة لاستيفاء المتغير $ var ، أي استبدال محتوياته:

 $ var = 'hello'؛ طباعة ("$ var world") ؛ 

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

 $ var = 'Hello'؛ طباعة STDOUT $ var؛ 

في الواقع ، كون STDOUT هو الإخراج " القياسي " (افتراضيًا) ، فإن أسهل طريقة لكتابة هذا الرمز هي:

 $ var = 'bonjour' ؛ طباعة $ var؛ 

من الممكن أيضًا استخدام printf () (من لغة C) لإرسال المعلومات إلى الإخراج القياسي.

خطأ الإخراج القياسي

يوفر Perl واصفًا قياسيًا ثالثًا لإرسال الأخطاء تلقائيًا إلى مخرجات محددة ، كما حددها مسؤول النظام. يسمى هذا الواصف STDERR .

المستند الأصلي المنشور على CommentCaMarche.net.

المقال السابق المقالة القادمة

نصائح الأعلى