بيرل - الإدخال / الإخراج الأساسي
بيرل - المدخلات والمخرجات القياسية
يسمح لك 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.