ファイル:: virtualpath

File :: VirtualPathは、ファイル/ DIR / URLパスの携帯抽象化です。
今すぐダウンロード

ファイル:: virtualpath ランキングとまとめ

広告

  • Rating:
  • ライセンス:
  • Perl Artistic License
  • 価格:
  • FREE
  • 出版社名:
  • Darren R. Duncan
  • 出版社のWebサイト:
  • http://search.cpan.org/duncand/CGI-Portable-0.51/lib/CGI/Portable/AppMultiScreen.pm

ファイル:: virtualpath タグ


ファイル:: virtualpath 説明

File :: VirtualPathは、ファイル/ dir / urlパスの携帯用抽象化です。 File :: VirtualPathは、ファイル/ dir / url pathの携帯用抽象化です.Syn Shell "Startup.pl":#!/ usr / bin / perl厳密です。警告を使用する。私の$ root = "/ home / johndoe / projects / arardvark"; My $ SELATOR = "/"; ($ ^ o =〜/ win / i){$ root = "c: projects aardvark"; $ seporator = ""; ($ ^ o =〜/ mac / i){$ root = "文書:プロジェクト:aardvark"; $ separator = ":"; aardvarkを使用してください。 AardVark-> Main(File :: VirtualPath-> New($ root、$区切り文字))。 1; FATメインプログラムの内容 "aardvark.pm"パッケージAardvark。厳密を使う。警告を使用する。ファイル:: virtualpathを使用してください。サブメイン{My(undef、$ project_dir)= @_; My $ PREFS = get_prefs($ project_dir-> child_path_obj( 'config.pl')); do_work($ exps、$ project_dir); get_prefs {My($ PROJECT_DIR)= @_; My $ REAL_FILENAME = $ project_dir-> physical_path_string();私の$ exp = do $ real_filename;定義された($ prefs)またはdo {my $ virtual_fn = $ project_dir-> path_string(); 「ファイル」$ virtual_fn 'からaardvarkの誤りを取得できません:$! "; ;;戻る($ Prefs); sub do_work {My($ prefs、$ project_dir)= @_; My($ LBL_A、$ LBL_B、$ LBL_C)=($ PREGS - > {A}、$ PREGS - > {B}、$ PREFS - > {C}); My $ DATA_SOURCE = $ prefs - > {'sourcefile'}; Open(Source、$ Project_Dir-> Physical_Child_Path_String($ data_source))。間(私の$ 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 関連ソフトウェア