ºÐ¼® :: BBCode.

BBCODE¸¦ HTML ¶Ç´Â ÀÏ¹Ý ÅؽºÆ®·Î ¹Ù²Ù´Â ¸ðµâ
Áö±Ý ´Ù¿î·Îµå

ºÐ¼® :: BBCode. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °Ô½ÃÀÚ À̸§:
  • Tina Mller
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î