فيما يلي بعض الوظائف القياسية لمعالجة الأدلة:
opendir DIRHANDLE, EXPR # افتح الدليل readdir DIRHANDLE # اقرأ الدليل rewinddir DIRHANDLE # ضع المؤشر في البداية Telldir DIRHANDLE # قم بإرجاع الموضع الحالي للدليل requestdir DIRHANDLE, POS # حدد موقع نقطة البيع المحددة للدليل Closedir DIRHANDLE # Close الدليل
إظهار كافة الملفات
عرض كافة الملفات في الدليل يستخدم المثال التالي عامل التشغيل الشامل، كما هو موضح أدناه:
مثال
#!/usr/bin/Perl # عرض جميع الملفات في الدليل /tmp $dir = " /tmp/ * " ; @الملفات = الكرة الأرضية ( $دير ) ؛ ( @الملفات ) { مطبعة $ _ . # عرض جميع الملفات التي تنتهي بـ .c في الدليل /tmp $ dir = " /tmp/*.c " @files = glob ( $دير ) ؛ ( @الملفات ) { مطبعة $ _ . #إظهار كافة الملفات المخفية $ dir = " /tmp/.* " @files = glob ( $دير ) ؛ ( @الملفات ) { مطبعة $ _ . # عرض جميع الملفات في مجلدات /tmp و/home $dir = " /tmp/* /home/ * " @files = glob ( $دير ) ؛ ( @الملفات ) { مطبعة $ _ . يسرد المثال التالي كافة الملفات الموجودة في الدليل الحالي:
مثال
#!/usr/bin/Perl opendir ( دير ، ' . ' ) أو يموت " لا يمكن فتح الدليل، $! " ; بينما ( ملف $ = readdir دير ) { مطبعة " $ملف n " } مغلق دير ; إذا كنت تريد عرض جميع الملفات التي تنتهي بـ .c في الدليل /tmp، فيمكنك استخدام الكود التالي:
مثال
#!/usr/bin/Perl أوبندير ( DIR ، ' . ' ) أو يموت " لا يمكن فتح الدليل، $ ! " ; ( نوع grep ( /^.*.c $ /, readdir ( DIR ) ) ) { مطبعة " $_ n " } مغلق دير ; إنشاء دليل جديد
يمكننا استخدام الدالة mkdir لإنشاء دليل جديد. يجب أن يكون لديك أذونات كافية لإنشاء الدليل قبل التنفيذ:
مثال
#!/usr/bin/Perl $dir = " /tmp/Perl " ; # قم بإنشاء دليل Perl ضمن الدليل /tmp مكدير ( $دير ) أو يموت " لا
يمكن إنشاء دليل $dir ،
$! " ; " تم إنشاء الدليل بنجاح n " ; حذف الدليل
يمكننا استخدام الدالة rmdir لحذف الدليل، حيث يلزم الحصول على أذونات كافية لإجراء هذه العملية. بالإضافة إلى ذلك، يجب أن يكون الدليل المراد حذفه دليلًا فارغًا:
مثال
#!/usr/bin/Perl $dir = " /tmp/Perl " # احذف دليل Perl ضمن الدليل /tmp رمدير ( $دير ) أو يموت " لا
يمكن حذف دليل $dir ،
$! " ؛ " تم حذف الدليل بنجاح n " ; تبديل الدليل
يمكننا استخدام وظيفة chdir لتبديل الدليل الحالي. مطلوب أذونات كافية لإجراء هذه العملية. الأمثلة هي كما يلي:
مثال
#!/usr/bin/Perl $dir = " /home " # انقل الدليل الحالي إلى الدليل /home تشدير ( $دير ) أو يموت " لا يمكن
تبديل الدليل إلى $dir , $! " ; " الدليل الذي تتواجد فيه حاليًا هو $dir n " ; بتنفيذ البرنامج أعلاه تكون نتيجة الإخراج هي:
الدليل الذي تتواجد فيه حاليًا هو /home
