Dosya :: VirtualPath Dosya :: VirtualPath, bir dosyanın / dir / URL yolunun taşınabilir bir soyutlamasıdır.
Şimdi İndirin

Dosya :: VirtualPath Sıralama ve Özet

Dosya :: VirtualPath Etiketler

taşınabilir Perl modülü Gerçek soyutlama taşınabilir soyutlama sanal yol

Dosya :: VirtualPath Açıklama

Dosya :: VirtualPath, bir dosyanın / dir / URL yolunun taşınabilir bir soyutlamasıdır. Dosya :: VirtualPath, bir dosyanın / dir / URL yolunun taşınabilir bir soyutlamasıdır. Uyarıları kullanın; $ root = "/ ev / johndoe / projeler / Aardvark"; $ ayırıcım = "/"; Eğer ($ ^ o = ~ / win / i) {$ root = "c: \ projeler \ aardvark"; $ ayırıcı = "\"; } Eğer ($ ^ o = ~ / Mac / i) {$ root = "Belgeler: Projeler: Aardvark"; $ ayırıcı = ":"; } Aardvark kullanın; Aardvark-> Ana (Dosya :: VirtualPath-> Yeni ($ root, $ ayırıcı)); 1; FAT Ana Programın İçeriği "Aardvark.PM" Paketi Aardvark; sıkı kullanmak; Uyarıları kullanın; Kullanın Dosya :: VirtualPath; alt ana {my (undef, $ proje_dir) = @_; $ prefs = get_prefs ($ project_dir-> child_path_obj ('config.pl')); do_work ($ prefes, $ proje_dir); } Sub Get_Prefs {My ($ Project_dir) = @_; $ real_filename = $ project_dir-> fynesent_path_string (); $ prefers = $ real_filename; tanımlanmış ($ prefs) veya do {$ virtual_fn = $ proje_dir-> path_string (); ölmek "" $ virtual_fn ': $! "Dosyasından Aardvark Prefs'i alamıyor: $!"; }; dönüş ($ prefs); } alt do_work {benim ($ prefes, $ proje_dir) = @_; benim ($ lbl_a, $ lbl_b, $ lbl_c) = ($ prefs -> {a}, $ prefes -> {b}, $ prefs -> {c}); $ DATA_SOURCE = $ prefs -> {'SourceFile'}; açık (kaynak, $ proje_dir-> fynify_child_path_string ($ Data_Source)); ($ satırım =) {($ a, $ b $ b, $ c) = bölünmüş ("t", $ satır); Yazdır "Dosyası İçerik: $ lbl_a = '$ a', $ lbl_b = '$ b', $ lbl_c = '$ c'N"; } Kapat (kaynak); } 1; Ayarlar dosyasının içeriği "config.pl" $ rh_prefs = {sourceFile => 'myData.txt', a => 'ad', b => 'Telefon', C => 'Tarih',}; Gereksinimler: · Perl

Dosya :: VirtualPath İlgili Yazılım