Arquivo :: VirtualPath. Arquivo :: VirtualPath é uma abstração portátil de um caminho de arquivo / dir / de url.
Baixe Agora

Arquivo :: VirtualPath. Classificação e resumo

Arquivo :: VirtualPath. Tag

portátil Módulo Perl. Virtual abstração Abstração portátil caminho virtual

Arquivo :: VirtualPath. Descrição

Arquivo :: VirtualPath é uma abstração portátil de um caminho de arquivo / dir / de url. Arquivo :: VirtualPath é uma abstração portátil de um caminho de arquivo / dir / url.synopsiscontent do shell fino "startup.pl": #! / Usr / bin / perl Use rigoroso; use avisos; minha $ root = "/ home / johndoe / projetos / aardvark"; meu $ separador = "/"; se ($ ^ o = ~ / win / i) {$ root = "c: \ projects \ aardvark"; $ separador = "\"; } se ($ ^ o = ~ / mac / i) {$ root = "documentos: Projetos: Aardvark"; $ separador = ":"; } Use Aardvark; Aardvark-> Main (Arquivo :: VirtualPath-> Novo ($ Root, $ Separator)); 1; conteúdo do programa principal de gordura "Aardvark.pm" pacote Aardvark; Use rigoroso; use avisos; Use o arquivo :: VirtualPath; Sub principal {my (undef, $ project_dir) = @_; meu $ prefs = get_prefs ($ project_dir-> child_path_obj ('config.pl')); do_work ($ prefs, $ project_dir); } sub get_prefs {my ($ project_dir) = @_; Meu $ Real_FileName = $ project_dir-> fisical_path_string (); Meu $ Prefs = fazer $ Real_FileName; definido ($ prefs) ou fazer {my $ virtual_fn = $ project_dir-> path_string (); Die "Não é possível obter Aardvark Prefs do arquivo '$ virtual_fn': $!"; }; retorno ($ prefs); } sub do_work {my ($ prefs, $ project_dir) = @_; meu ($ lbl_a, $ lbl_b, $ lbl_c) = ($ prefs -> {a}, $ prefs -> {b}, $ prefs -> {c}); Meu $ Data_Source = $ Prefs -> {'SourceFile'}; Open (Source, $ Project_dir-> Fisical_Child_Path_String ($ data_source)); enquanto (minha $ linha =) {my ($ A, $ B, $ c) = dividir ("t", $ line); Imprimir "O arquivo contém: $ lbl_a = '$ A', $ lbl_b = '$ b', $ lbl_c = '$ c'n"; } Feche (fonte); } 1; conteúdo de configurações arquivo "config.pl" $ rh_prefs = {SourceFile => 'mydata.txt', a => 'nome', b => 'telefone', c => 'data',}; requisitos: · Perl.

Arquivo :: VirtualPath. Software Relacionado