إخراج بتنسيق بيرل

تعد لغة Perl لغة معالجة بيانات نصية قوية جدًا.

في Perl، يمكنك استخدام التنسيق لتحديد قالب، ثم استخدام الكتابة لإخراج البيانات وفقًا للقالب المحدد.

صيغة تعريف تنسيق Perl هي كما يلي:

 تنسيق FormatName =fieldlinevalue_one، value_two، value_threefieldlinevalue_one، value_two.

تحليل المعلمة:

FormatName : اسم منسق.

خط الحقل : خط تنسيق يستخدم لتحديد تنسيق خط الإخراج، بأحرف مثل @،^،،|.

value_one, value_two... : صفوف البيانات المستخدمة لإدراج القيم في صفوف التنسيق السابقة، كلها متغيرات بيرل.

: رمز النهاية .

فيما يلي مثال تنسيق بسيط:

مثال

#!/usr/bin/Perl تنسيق $text = " Google Codercto Taobao " ; STDOUT = first : ^<<<<< # تم ضبطه على اليسار، طول الحرف هو 6 نص $ ثانياً : ^<<<<< # تم ضبطه على اليسار، طول الحرف هو 6 نص $ الثالث : ^<<<< # محاذاة إلى اليسار، طول الحرف هو 5، تاوباو، يتم اقتطاع حرف o الأخير $ نص.اكتب

نتيجة الإخراج لتنفيذ المثال أعلاه هي:

 الأول: جوجل الثاني: Codercto الثالث: Taoba

تنسيق بناء الجملة (خط الرسومات).

تبدأ أسطر التنسيق بـ @ أو ^، ولا يتم إجراء أي استبدال متغير على هذه الأسطر.

الحقول @ (يجب عدم الخلط بينها وبين رمز المصفوفة @) هي حقول عادية.

يحدد طول <, >,| بعد @,^ طول الحقل إذا تجاوز المتغير الطول المحدد، فسيتم اقتطاعه.

<، >،| تمثل أيضًا المحاذاة اليسرى، والمحاذاة اليمنى، والمحاذاة المركزية على التوالي.

يتم استخدام الحقل ^ لحشو كتلة النص متعددة الأسطر.

تنسيق نطاق القيمة

ويكون تنسيق نطاق القيمة كما هو موضح في الجدول التالي:

شكل	معنى نطاق القيمة
@<<<	إخراج محاذاة لليسار
@>>>	الإخراج مبرر الحق
@|||	مركز الإخراج الانحياز
@##.##	رقم الدقة الثابتة
@*	نص متعدد الأسطر

الحرف الأول في كل حقل قيمة هو حرف تعبئة السطر. عند استخدام الحرف @، لا يتم إجراء أي تنسيق للنص.

في الجدول أعلاه، باستثناء حقل القيمة متعدد الأسطر @*، فإن عرض الحقل يساوي العدد المحدد من الأحرف بما في ذلك الحرف @، على سبيل المثال:

 @###.##

ويعني ذلك عرض سبعة أحرف، أربعة قبل العلامة العشرية واثنان بعد العلامة العشرية.

الأمثلة هي كما يلي:

مثال

#!/usr/bin/Perl شكل الموظف ================================================================== <<<<<<<<<< @<< $name , $age @ #####.## $salary ================ اختر ( STDOUT ) ; $~ = @n = ( " علي " , " كودركتو " , " جعفر " ) ; @a = ( 20 , 30 , 40 ) ; $ i​​​​​​​​​ = 0 ;​ ( @ن ) { $ name = $ _ ; $ age = $ a [ $ i ] ;​​​​​​

نتيجة الإخراج للمثال أعلاه هي:

 ===================== علي 20 2000.00========= ================================================================================================== ========كوديركتو 30 2500.00 ================================================================== = ================================================================================================================================== = =========

متغير التنسيق

$~ ($FORMAT_NAME): اسم التنسيق $^ ($FORMAT_TOP_NAME): يتم تخزين اسم تنسيق الرأس الحالي في

$% ($FORMAT_PAGE_NUMBER): رقم صفحة الإخراج الحالية

$= ($FORMAT_LINES_PER_PAGE) : عدد الأسطر في كل صفحة

$|.$FORMAT_AUTOFLUSH: ما إذا كان سيتم تحديث المخزن المؤقت للإخراج تلقائيًا

$^L ($FORMAT_FORMFEED): السلسلة التي يجب إخراجها قبل تخزين رأس كل صفحة (باستثناء الصفحة الأولى) في

فيما يلي مثال على التنسيق البسيط باستخدام $~:

مثال

#!/usr/bin/Perl $~ = " MYFORMAT " # حدد التنسيق المستخدم في متغير الملف الافتراضي write # إخراج التنسيق المحدد بواسطة $~ شكل MYFORMAT = # تعريف التنسيق MYFORMAT ========================== نص # البرنامج التعليمي للمبرمج =======================

نتيجة الإخراج لتنفيذ المثال أعلاه هي:

 ===================== النص # البرنامج التعليمي ============ ================================================================================================= === النص # البرنامج التعليمي ===========================

إذا لم يتم تحديد $~، فسيتم إخراج تنسيق يسمى STDOUT:

مثال

#!/usr/bin/Perl write # إذا لم يتم تحديد $~، فسيتم البحث في التنسيق المسمى STDOUT. شكل STDOUT =~لن يتم إخراج النص المحدد بالرمز ~ ---------------- تنسيق STDOUT ----------------.

نتيجة الإخراج لتنفيذ المثال أعلاه هي:

 ----------------تنسيق STDOUT----------------

في المثال التالي، نوضح استخدام متغيرات $^ أو $FORMAT_TOP_NAME عن طريق إضافة معلومات رأس التقرير:

مثال

#!/usr/bin/Perl شكل الموظف ================================================================== <<<<<<<<<< @<< $name , $age @ #####.## الراتب $ ======================== EMPLOYEE_TOP ======================= الاسم العمر ==================== اختر ( STDOUT ) ;$~ = الموظف $ ^ = EMPLOYEE_TOP ; @n = ( " Ali " , " Codercto " , " Jaffer " ) @a = ( 20 , 30 , 40 ) ;​​​​​​​​ 4000.000 ) ; $ i = 0 ; ( @ن ) { $ name = $ _ ; $ age = $ a [ $ i ] ;​​​​​​

نتيجة الإخراج للمثال أعلاه هي:

 ===================== العمر ========================================================================================= ================================================================================================= = =======علي 20 2000.00========================= === ======================كوديركتو 30 2500.00 ================================================================== = =================================================================================================================================== = =========

يمكننا أيضًا استخدام $% أو $FORMAT_PAGE_NUMBER لتعيين ترقيم الصفحات للتقرير:

مثال

#!/usr/bin/Perl شكل الموظف ================================================================== <<<<<<<<<< @<< $name , $age @ #####.## $salary ============================= # إضافة الترحيل $٪. شكل EMPLOYEE_TOP ======================= الاسم عمر الصفحة @< $%============== حدد ( STDOUT ) ;$~ = EMPLOYEE ; $ ^ = EMPLOYEE_TOP ;​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​​ 4000.000 ) ; $ i = 0 ; ( @ن ) { $ name = $ _ ; $ age = $ a [ $ i ] ;​​​​​​

نتيجة الإخراج للمثال أعلاه هي:

 =====================الاسم العمر الصفحة 1=========== ================================================================================================= = =========علي 20 2000.00======================== === =========================كوديركتو 30 2500.00 ================================================================== = ================================================================================================================================== = =========

الإخراج إلى ملفات أخرى

بشكل افتراضي، تقوم وظيفة الكتابة بإخراج النتائج إلى ملف الإخراج القياسي STDOUT، ولكن يمكننا أيضًا جعلها تقوم بإخراج النتائج إلى أي ملف آخر. إن أبسط طريقة هي تمرير متغير الملف كمعلمة للكتابة، مثل:

 اكتب(ملفي);

يقوم الكود أعلاه بكتابة المخرجات إلى الملف MYFILE باستخدام تنسيق الطباعة الافتراضي المسمى MYFILE.

ولكن بعد ذلك لا يمكنك استخدام المتغير $~ لتغيير تنسيق الطباعة المستخدم. يؤثر متغير النظام $~ فقط على متغير الملف الافتراضي. يمكننا تغيير متغير الملف الافتراضي، وتغيير $~، ثم استدعاء الكتابة.

مثال

#!/usr/bin/Perl لو ( مفتوح ( MYFILE , " >tmp " ) ) { $~ = " الصيغة الخاصة بي " ؛ MYFILE # الإخراج الذي يحتوي على متغيرات الملف في هذا الوقت، سيتم طباعة التنسيق الذي يحمل نفس اسم المتغير، أي MYFILE. يتم تجاهل القيم المحددة في $~. شكل MYFILE = # نفس اسم متغير الملف =================== الإدخال في الملف === === ========================= ملفي }​

بعد التنفيذ الناجح يمكننا عرض محتويات ملف tmp كما يلي:

 $ cat tmp =========== الإدخال في الملف =========== ==============================================================

عندما نتمكن من استخدام التحديد لتغيير متغير الملف الافتراضي، فإنه يعيد التمثيل الداخلي لمتغير الملف الافتراضي الحالي، حتى نتمكن من إنشاء إجراءات فرعية ومخرجات وفقًا لأفكارنا الخاصة دون التأثير على أجزاء أخرى من البرنامج.

مثال

#!/usr/bin/Perl لو ( مفتوح ( MYFILE , " >>tmp " ) ) { يختار ( MYFILE ) ; # طباعة متغير الملف الافتراضي إلى MYFILE $~ = " OTHER " ؛ # متغير الملف الافتراضي، الطباعة إلى الملف المحدد بواسطة التحديد ، يجب استخدام التنسيق OTHER المحدد بواسطة $~ شكل أخرى =================== الإدخال في الملف باستخدام التنسيق المحدد ======= = ================== قريب ملفي }​

بعد التنفيذ الناجح يمكننا عرض محتويات ملف tmp كما يلي:

 $ cat tmp =========== الإدخال في الملف =========== ================================================================================================= ===== الإدخال في الملف باستخدام التنسيق المحدد ===========================