| PerlPoint :: ÅÛÇø´ :: TT2. PerlPoint :: Template :: TT2´Â ÅÛÇø´ ÅøŶ 2 ·¹À̾ƿôÀ»À§ÇÑ PerlPoint ÅÛÇø´ ÇÁ·Î¼¼¼ÀÇ º£Å¸ÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
PerlPoint :: ÅÛÇø´ :: TT2. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Jochen Stenzel
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jstenzel/Getopt-ArgvFile-1.11/ArgvFile.pm
PerlPoint :: ÅÛÇø´ :: TT2. ű×
PerlPoint :: ÅÛÇø´ :: TT2. ¼³¸í
PerlPoint :: Template :: TT2´Â ÅÛÇø´ ÅøŶ 2 ·¹À̾ƿôÀ»À§ÇÑ PerlPoint ÅÛÇø´ ÇÁ·Î¼¼¼ÀÇ º£Å¸ÀÔ´Ï´Ù. PerlPoint :: Template :: TT2´Â ÅÛÇø´ ÅøŶ 2 Layouts.MethodsNew () ¸Å°³ º¯¼ö¿¡ ´ëÇÑ PerlPoint ÅÛÇø´ ÇÁ·Î¼¼¼ÀÇ º£Å¸ÀÔ´Ï´Ù. ClasSthe Ŭ·¡½º À̸§. Returns : »õ object.example : # ½ÃÀÛ ÆäÀÌÁö $ °á°ú¸¦ ½ÃÀÛÇÕ´Ï´Ù. = "nnnn"; # Begin Header $ °á°ú. = "nnnn"; # Çì´õ ³»¿ë : ÀÌ°ÍÀº ÅÛÇø´ ÆÄÀÏÀÇ ÀüÅëÀûÀÎ ¸ñ·Ï¿¡ Ãß°¡µË´Ï´Ù. = $ me -> _ processTemplate (°¡ÀÔ ( '/', $ tdir, $ ¿É¼Ç -> {$ toc? 'header_toc_template': 'header_template'}) , $ toc? 1 : $ params {page}); # ¿Ï·á Çì´õ $ °á°ú. = "nnnn"; # ½ÃÀÛ body $ °á°ú. = "nnnn"; # ÀÌÁ¦ º»¹® ³»¿ë : »ó´Ü ºÎÇ° $ °á°ú·Î ½ÃÀÛÇϽʽÿÀ. = $ me -> _ processTemplate (°¡ÀÔ ( '/', $ tdir, $ ¿É¼Ç -> {$ toc? 'top_toc_template': 'top_template'}), $ TOC? 1 : $ params {ÆäÀÌÁö}); # Ž»öÀ» Ãß°¡ÇϽʽÿÀ. {PAGE}) $ ¿É¼Ç -> {$ TOC°¡ Á¸ÀçÇÏ´Â °æ¿ì? 'nav_toc_template': 'nav_template'}; # µ¥ÀÌÅÍ Æ÷ÇÔ (TOC ¿ë, Æ®¸® ¾ÖÇø´ÀÌ »ç¿ëµÇ´Â °æ¿ì Ç¥ÁØ TOC¸¦ Ãß°¡ÇÏÁö ¾Ê¾ÆµµµË´Ï´Ù. $ result = ~ / _toc () : $ params {data}; # ÇÊ¿äÇÑ °æ¿ì ÇÏ´Ü Å½»öÀ» Ãß°¡ÇϽʽÿÀ. = $ ME -> _ ProcessTemplate (Join ( '/', $ TDIR, $ ¿É¼Ç -> {$ toc? 'nav_toc_template': 'nav_template'}), $ toc? 1 : $ params {page}) $ ¿É¼Ç -> {$ TOC°¡ ÀÖ½À´Ï±î? 'nav_toc_template': 'nav_template'}; # ¸¶Áö¸·À¸·Î ÇÏ´Ü ºÎºÐÀ» Ãß°¡ÇϽʽÿÀ. = $ me -> _ processTemplate (°¡ÀÔ ( '/', $ tdir, $ ¿É¼Ç -> {$ toc? 'bottom_toc_template': 'bottom_template'}), $ toc? 1 : $ params {page}); # º»Ã¼ $ °á°ú¸¦ ´ÝÀ¸½Ê½Ã¿À. = "nnnn"; # $ °á°ú¸¦ ¿Ï·áÇϽʽÿÀ. = "nnnn"; # ºôµå ÆÄÀÏ À̸§ My $ Filename = Join ( '', "$ ¿É¼Ç -> {TargetDir} / $ ¿É¼Ç -> {Prefix} -", (fileparse ($ ÅÛÇø´, QR ( +)) , "- $ params {ÆäÀÌÁö} $ ¿É¼Ç -> {Á¢¹Ì»ç}"); °æ°í "= ÆäÀÌÁö º¸Ãæ ±³Àç =====> $ FILENAMEN"; # ÆÄÀÏÀ» ¿±´Ï ´Ù (suppfile, "> $ filename") ¶Ç´Â qq ( Ãâ·Â ÆÄÀÏ "$ filename": $! n); suppfile $ stringÀ» ÀμâÇϽʽÿÀ; ´Ý±â (suppfile); }} ¿ä±¸ »çÇ× : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.
PerlPoint :: ÅÛÇø´ :: TT2. °ü·Ã ¼ÒÇÁÆ®¿þ¾î