| ºÐ¼® :: BBCode. BBCODE¸¦ HTML ¶Ç´Â ÀÏ¹Ý ÅؽºÆ®·Î ¹Ù²Ù´Â ¸ðµâ |
Áö±Ý ´Ù¿î·Îµå |
ºÐ¼® :: BBCode. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~tinita/
ºÐ¼® :: BBCode. ű×
ºÐ¼® :: BBCode. ¼³¸í
BBCODE¸¦ HTML ¶Ç´Â ÀÏ¹Ý ÅؽºÆ®·Î ¹Ù²Ù´Â ¸ðµâ Parse :: BBCode´Â BBCODE¸¦ HTML ¶Ç´Â ÀÏ¹Ý ÅؽºÆ®·Î ¹Ù²Ù´Â PERL ¸ðµâÀÔ´Ï´Ù. BBCODE ¹®ÀÚ¿À» ±¸¹® ºÐ¼®ÇÏ°í ÆÄ½Ì :: BBCODE :: HTML : PARSE :: BBCODE¸¦ »ç¿ëÇϽʽÿÀ. ³» $ p = ±¸¹® ºÐ¼® :: bbcode-> new (); ³» $ code = 'ÀϺΠb ÄÚµå '; MY $ PARSED = $ P-> ·»´õ¸µ ($ ÄÚµå); ¶Ç´Â ÀÚ½ÅÀÇ Å±׸¦ Á¤ÀÇÇÏ·Á´Â °æ¿ì : MY $ P = PARSE :: BBCODE-> »õ ({TAGS => {# ±âº» ÅÂ±× ±¸¹® ºÐ¼® :: BBCODE·Îµå :: html-> defaults, # add / override ÅÂ±× URL => 'URL : % {PARSE} s', i => '% {parse} s', b => '% {Parse} s', noparse => '% {html} s', code => sub {my ($ parser, $ attr, $ content, $ attribute_fallback) = @ = if ($ attr eq 'perl') {# ÀϺΠ±¸¹® highlighter $ content = highlight_perl ($ Content);} else {$ content = parse :: bbcode :: ecompain_html ($$ content);} "$ content"}, test => 'ÀÌ°ÍÀº klingon : % {klingon} s',}, escapes = > {klingon => sub {my ($ Æļ, $ ű×, $ text) = @_; Return translate_into_klingon ($ text);},},}; ³» $ code = 'ÀϺΠb ÄÚµå '; ³» $ parsed = $ p-> ·»´õ¸µ ($ ÄÚµå); ¿ä±¸ »çÇ× : ¡¤ Perl.
ºÐ¼® :: BBCode. °ü·Ã ¼ÒÇÁÆ®¿þ¾î