| ÅؽºÆ® :: Metatext. TEXT :: METATEXT´Â "ÅÛÇø´"ÅؽºÆ® ÆÄÀÏÀ» ó¸®ÇϱâÀ§ÇÑ ¸ÞŸ ¾ð¾î¸¦ ±¸ÇöÇÏ´Â PERL È®ÀåÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
ÅؽºÆ® :: Metatext. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Andy Wardley
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~abw/
ÅؽºÆ® :: Metatext. ű×
ÅؽºÆ® :: Metatext. ¼³¸í
text :: metatext´Â "ÅÛÇø´"ÅؽºÆ® ÆÄÀÏÀ» ó¸®ÇϱâÀ§ÇÑ ¸ÞŸ ¾ð¾î¸¦ ±¸ÇöÇÏ´Â Perl È®ÀåÀÚÀÔ´Ï´Ù. text :: metatext´Â "ÅÛÇø´"ÅؽºÆ® ÆÄÀÏÀ» ó¸®ÇϱâÀ§ÇÑ ¸ÞŸ ¾ð¾î¸¦ ±¸ÇöÇÏ´Â Perl È®ÀåÀÚÀÔ´Ï´Ù. ½Ä ³ëÇÁ°¡ ÅؽºÆ® :: metatext¸¦ »ç¿ëÇÕ´Ï´Ù. ³» $ mt = text :: metatext-> new (); # ÇÁ·Î¼¼½º ÆÄÀÏ ³»¿ë ¶Ç´Â ÅؽºÆ® ¹®ÀÚ¿ Àμâ $ MT-> PROCESS_FILE ($ FILENAME, % VARDEFS); $ MT-> process_text ($ TextString, % Vardefs)¸¦ ÀμâÇϽʽÿÀ. # $ MT-> DECLARE ($ TEXTSTRING, $ BLOCKNAME)¸¦ Æ÷ÇÔÇÑ ºí·ÏÀ» ¹Ì¸® ¼±¾ðÇϽʽÿÀ. $ mt-> declare (@Content, $ blockname); metatext Áö½Ã¾î ¿ä¾à %% define variable = value # define º¯¼ö º¯¼ö 2 = "ÀÎ¿ë °ª"%% %% %% %% % º¯¼ö %% º¯¼ö %% # À§ÀÇ %% ºí·Ï ºí·Ï ºí·Ï ºí·Ï ºí·Ï ºí·Ï ºí·Ï ºí·Ï ÅؽºÆ® ... %% endblock %% %% %% include include 'blockname'ºí·Ï ÅؽºÆ® %% Æ÷ÇÔ µÈ ÆÄÀÏ À̸§ %% # ¿ÜºÎ ÆÄÀÏ 'filename'%% Æ÷ÇÔ file_or_block # v º¯¼ö = °ª # Ãß°¡ º¯¼ö Á¤ÀÇ (µé) = Á¶°Ç # Á¶°ÇºÎ Æ÷ÇÔ = Á¶°Ç # Á¶°ÇºÎ Á¦¿Ü Çü½Ä = format_string # printf Çü½Ä ¹®ÀÚ¿ '% s'filter = fltname (params) # »çÈÄ ÇÁ·Î¼¼½º ÇÊÅÍ %% %% %%% %%% %% %% %% %% %% %% %% %% %% %% %% %% %%%tion viewrent ¡¤ Perl 5.004 ÀÌ»ó ¡¤ ³¯Â¥ Çü½Ä ¡¤ ÆÄÀÏ :: Recurse.
ÅؽºÆ® :: Metatext. °ü·Ã ¼ÒÇÁÆ®¿þ¾î