Bestand :: VirtualPath Bestand :: VirtualPath is een draagbare abstractie van een bestand / dir / url-pad.
Download nu

Bestand :: VirtualPath Rangschikking & Samenvatting

Bestand :: VirtualPath Tags

draagbaar Perl-module Virtueel abstractie draagbare abstractie virtueel pad

Bestand :: VirtualPath Beschrijving

Bestand: VirtualPath is een draagbare abstractie van een bestand / dir / url-pad. Bestand :: VirtualPath is een draagbare abstractie van een bestand / dir / url pad.synopsiscontent van dunne schaal "startup.pl": #! / Usr / bin / perl gebruik strikt; gebruik waarschuwingen; Mijn $ root = "/ Home / Johndoe / Projects / Aardvark"; mijn $ separator = "/"; if ($ ^ o = ~ / win / i) {$ root = "C: \ Projects \ Aardvark"; $ Separator = "\"; } if ($ ^ o = ~ / mac / i) {$ root = "Documenten: Projecten: Aardvark"; $ Separator = ":"; } Gebruik Aardvark; Aardvark-> Main (Bestand :: VirtualPath-> Nieuw ($ wortel, $ Separator)); 1; Inhoud van vet-hoofdprogramma "Aardvark.pm" -pakket Aardvark; strikt gebruik; gebruik waarschuwingen; Gebruik bestand :: virtualpath; Sub hoofd {mijn (undef, $ project_dir) = @_; Mijn $ Prefs = Get_PREFS ($ project_dir-> child_path_obj ('config.pl')); do_work ($ prefs, $ project_dir); } sub get_prefs {mijn ($ project_dir) = @_; mijn $ real_filename = $ project_dir-> physical_path_string (); mijn $ prefs = do $ real_fileName; gedefinieerd ($ prefs) of doe {mijn $ virtual_fn = $ project_dir-> path_string (); Die "kan geen aardvarken krijgen prefaties van bestand '$ virtual_fn': $!"; }; terugkeer ($ prefs); } sub do_work {my ($ prefs, $ project_dir) = @_; mijn ($ LBL_A, $ LBL_B, $ LBL_C) = ($ Prefs -> {A}, $ prefs -> {B}, $ prefs -> {C}); mijn $ data_source = $ prefs -> {'sourcefile'}; open (bron, $ project_dir-> physical_child_path_string ($ data_source)); terwijl (mijn $ regel =) {mijn ($ A, $ B, $ C) = split ("t", $ lijn); Print "Bestand bevat: $ LBL_A = '$ A', $ LBL_B = '$ B', $ LBL_C = '$ C'N'; } Sluiten (bron); } 1; Inhoud van instellingen Bestand "config.pl" $ RH_PREFS = {sourcefile => 'mydata.txt', a => 'naam', b => 'telefoon', c => 'datum',}; eisen: · Perl

Bestand :: VirtualPath Gerelateerde software