تكوين قائمة انتقاء HTML بفعالية باستخدام Perl CGI

في سياق تطوير تطبيقات الويب باستخدام لغة Perl وتقنية CGI، يصبح الأمر مهمًا للمطورين توليد قوالب HTML بطريقة فعالة وديناميكية. في هذا السياق، تظهر أحد التحديات الشائعة كيفية استخدام قيم مصفوفة في قائمة منسدلة (dropdown list) في HTML باستخدام قوالب Perl CGI.

لحل هذا التحدي، يمكنك تعديل الكود الحالي ليتناسب مع احتياجاتك. في البداية، قم بقراءة قيم المصفوفة من الملف باستخدام وظيفة open وقم بتخزينها في المصفوفة @TOTAL. بعد ذلك، يمكنك استخدام هذه القيم لتكوين مصفوفة من الهياكل التي تمثل القيم المطلوبة في قائمة الانتقاء.

اليك كيفية تحقيق ذلك في كود Perl CGI:

perlCopy code
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use HTML::Template;

# إنشاء كائن CGI وكائن HTML::Template
my $cgi = CGI->new();
my $template = HTML::Template->new(filename => 'template.tmpl');

# اقرأ قيم المصفوفة من الملف
open my $file, '<', 'file.txt' or die "لا يمكن فتح الملف: $!";
my @TOTAL = <$file>;
close $file;

# تكوين مصفوفة الهياكل لقائمة الانتقاء
my @count_values;
foreach my $count (@TOTAL) {
    chomp($count);
    push @count_values, { name => $count };
}

# تحديث المتغير في القالب بقيم الهيكل الجديدة
$template->param(COUNT => \@count_values);

# إرسال رأس الاستجابة
print $cgi->header;

# طباعة الناتج
print $template->output;

في هذا الكود، تم تكوين مصفوفة @count_values لتحمل الهياكل المطلوبة لقائمة الانتقاء. ثم، تم تحديث المتغير في القالب بتلك القيم. يتم طباعة الناتج باستخدام كائن CGI لضمان توليد رأس الاستجابة الصحيح. يمكنك تخصيص هذا الكود وفقًا لاحتياجات مشروعك، والتأكد من استبعاد أي أخطاء محتملة لضمان أداء سلس وصحيح.

بالطبع، دعونا نعمق في تفاصيل الكود ونقدم بعض التوضيحات حول كيفية عمل الحل الذي تم توفيره.

في السطور الأولى من الكود، يتم استخدام كائن CGI لإنشاء كائن CGI، الذي يسهل عليك التفاعل مع البيانات المرسلة من النموذج HTML. كما تم استخدام كائن HTML::Template لإنشاء كائن HTML::Template الذي يتيح لك تحديد موقع واستخدام القوالب بطريقة فعالة.

ثم يتم فتح ملف باسم “file.txt” باستخدام الدالة open. هذه الدالة تعيد ملفًا مفتوحًا للقراءة (`’<')، وإذا كان ذلك غير ناجحًا، يتم إيقاف التنفيذ وإظهار رسالة خطأ.

perlCopy code
open my $file, '<', 'file.txt' or die "لا يمكن فتح الملف: $!";

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

perlCopy code
my @TOTAL = <$file>;
close $file;

بعد ذلك، يتم تكوين مصفوفة @count_values باستخدام هياكل بيانات تمثل القيم المراد عرضها في قائمة الانتقاء (dropdown list). يتم ذلك عبر فحص كل قيمة في المصفوفة @TOTAL باستخدام البنية التكرارية foreach وإضافة هياكل البيانات إلى @count_values.

perlCopy code
my @count_values;
foreach my $count (@TOTAL) {
    chomp($count);
    push @count_values, { name => $count };
}

بعد ذلك، يتم تحديث المتغير في القالب بقيم الهياكل الجديدة باستخدام الدالة param التابعة لكائن HTML::Template.

perlCopy code
$template->param(COUNT => \@count_values);

أخيرًا، يتم إرسال رأس الاستجابة باستخدام كائن CGI، ويتم طباعة الناتج النهائي بواسطة output الذي يستخدمه كائن HTML::Template.

perlCopy code
print $cgi->header;
print $template->output;

تأكد من أن لديك مكتبة HTML::Template مثبتة، يمكنك تثبيتها باستخدام:

bashCopy code
cpan HTML::Template

هذا الكود يمثل حلاً أساسيًا لاحتياجك، ويمكن تعديله وتكييفه حسب متطلبات مشروعك.