ملف :: VirtualPath.
التحميل الان

ملف :: VirtualPath. الترتيب والملخص

ملف :: VirtualPath. العلامات

المحمولة الوحدة النمطية بيرل افتراضي التجريد تجريد محمول المسار الافتراضي

ملف :: VirtualPath. وصف

ملف :: VirtualPath هو تجريد محمول لمسار الملف / DIR / URL. ملف :: VirtualPath هو تجريد محمول لمسار الملف / dir / url.syopscontent من قذيفة رقيقة "startup.pl": #! / USR / bin / perl استخدام صارمة؛ استخدام التحذيرات؛ بلدي جذر $ = "/ الصفحة الرئيسية / JohnDoe / المشاريع / Aardvark"؛ بلدي فاصل $ = "/"؛ إذا ($ ^ o = ~ / WIN / I) {$ root = "c: \ projects \ aardvark"؛ $ فاصل = "\"؛ } إذا ($ ^ o = ~ / mac / i) {$ root = "المستندات: المشاريع: Aardvark"؛ $ separator = ":"؛ } استخدم Aardvark؛ Aardvark-> الرئيسية (ملف :: VirtualPath-> جديد (جذر $، فاصل $))؛ 1؛ محتوى البرنامج الرئيسي الدهون "Aardvark.pm" حزمة Aardvark؛ استخدام صارمة؛ استخدام التحذيرات؛ استخدام الملف :: VirtualPath؛ Sub Main {My (undef، $ project_dir) = @؛ بلدي prefs $ = get_prefs ($ project_dir-> child_path_obj ('config.pl'))؛ do_work ($ prefs، $ project_dir)؛ } get_prefs الفرعية {بلدي ($ project_dir) = @؛ بلدي real_filename = $ project_dir-> mission_path_string ()؛ بلدي $ prefs = do $ real_filename؛ المعرفة (Prefs $) أو قم بعمل {My $ Virtual_fn = $ project_dir-> path_string ()؛ يموت "لا يمكن الحصول على aardvark prefs من الملف '$ virtual_fn': $!"؛ } العودة (Prefs $)؛ } Sub Do_Work {My ($ prefs، $ project_dir) =_؛ بلدي ($ lbl_a، $ lbl_b، $ lbl_c) = ($ prefs -> {a}، $ prefs -> {b}، $ prefs -> {c})؛ بلدي $ data_source = prefs $ -> {'sourcefile'}؛ فتح (المصدر، $ project_dir-> childal_child_path_string ($ data_source))؛ بينما (خطي $ =) {My ($ A، $ B، $ C) = تقسيم ("T"، خط $)؛ طباعة "ملف يحتوي على: $ lbl_a = '$ a'، $ lbl_b = '$ b'، $ lbl_c = '$ c'n"؛ } قريبة (المصدر)؛ } 1؛ محتوى ملفات الإعدادات "config.pl" $ rh_prefs = {sourcefile => 'mydata.txt'، a => 'الاسم'، b => 'phone'، c => "التاريخ"،}؛ المتطلبات: perl.

ملف :: VirtualPath. برامج ذات صلة