Pr0t0n has asked for the wisdom of the Perl Monks concerning the following question:
#!/usr/bin/perl my $p = Parse::BBCode->new({ tags => { '' => sub { my $e = Parse::BBCode::escape_html($_[2]); $e =~ s/\r?\n|\r/<br>\n/g; $e }, i => '<i>%s</i>', b => '<b>%{parse}s</b>', field => '<fieldset>%{parse}s</fieldset>', size => '<font size="%a">%{parse}s</font>', url => 'url:<a href="%{link}A">%{parse}s</a>', wikipedia => 'url:<a href="http://wikipedia.../?search +=%{uri}A">%{parse}s</a>', noparse => '<pre>%{html}s</pre>', quote => 'block:<blockquote>%s</blockquote>', code => { code => sub { my ($parser, $attr, $content, $attribute_fallb +ack) = @_; if ($attr eq 'perl') { # use some syntax highlighter $content = highlight_perl($content); } else { $content = Parse::BBCode::escape_html($$co +ntent); } "<tt>$content</tt>" }, parse => 0, class => 'block', }, hr => { class => 'block', output => '<hr>', single => 1, }, }, } ); 1;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: BBCode Parser in configuration file
by CountZero (Bishop) on Jul 04, 2009 at 22:44 UTC | |
by Pr0t0n (Novice) on Jul 04, 2009 at 23:45 UTC | |
by CountZero (Bishop) on Jul 05, 2009 at 06:45 UTC | |
by Pr0t0n (Novice) on Jul 05, 2009 at 23:29 UTC | |
| |
|
Re: BBCode Parser in configuration file
by Mr. Muskrat (Canon) on Jul 05, 2009 at 14:06 UTC |