파일 :: VirtualPath. FILE :: VirtualPath는 file / dir / url 경로의 휴대용 추상화입니다.
지금 다운로드

파일 :: VirtualPath. 순위 및 요약

파일 :: VirtualPath. 태그

가지고 다닐 수 있는 Perl 모듈 가상 추출 휴대용 추상화 가상 경로

파일 :: VirtualPath. 설명

FILE :: VirtualPath는 파일 / DIR / URL 경로의 휴대용 추상화입니다. file :: virtualpath는 얇은 쉘 "startup.pl"의 파일 / dir / url path.synopsontent의 휴대용 추상화입니다. #! / usr / bin / perl을 사용하십시오. 경고를 사용하십시오. 내 $ root = "/ home / johndoe / projects / aardvark"; 내 $ separator = "/"; if ($ ^ o = ~ / win / i) {$ root = "c : \ projects \ aardvark"; $ separator = "\"; } ($ ^ o = ~ / mac / i) {$ root = "문서 : 프로젝트 : aardvark"; $ serparator = ":"; } Aardvark를 사용하십시오. aardvark-> main (file :: virtualpath-> new ($ root, $ 분리 자)); 1; 지방 주 프로그램의 내용 "aardvark.pm"패키지 Aardvark; 엄격한 사용; 경고를 사용하십시오. 파일 :: virtualpath; Sub Main {My (Undef, $ Project_Dir) = @_; MY $ PRELSS = get_prefs ($ project_dir-> child_path_obj ( 'config.pl')); DO_WORK ($ pREFS, $ PROJECT_DIR); } sub get_prefs {my ($ project_dir) = @_; MY $ REAL_FILENAME = $ PROJECT_DIR-> physical_path_string (); 내 $ prefs = do $ real_filename; 정의 된 ($ prefs) 또는 do {my $ virtual_fn = $ project_dir-> path_string (); "$ Virtual_Fn 파일에서 Aardvark Prefs를 가져올 수 없습니다 : $!"; }; 반환 ($ prefs); } sub do_work {my ($ prefs, $ project_dir) = @_; My ($ lbl_a, $ lbl_b, $ lbl_c) = ($ prefs -> {a}, $ prefs -> {b}, $ prefs -> {c}; MY $ DATA_SOURCE = $ pREFS -> { 'sourcefile'}; 열기 (소스, $ project_dir-> physical_child_path_string ($ data_source)); (My $ LINE =) {MY ($ A, $ B, $ C) = 분할 ( "T", $ LINE); 인쇄 "파일이 포함됩니다 : $ lbl_a = '$ a', $ lbl_b = '$ b', $ lbl_c = $ c'n"; } 닫기 (소스); } 1; 설정 내용 "config.pl"$ rh_prefs = {sourcefile => 'mydata.txt', a => 'name', b => 'phone', c => 'date',}; 요구 사항 : · Perl.

파일 :: VirtualPath. 관련 소프트웨어