#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Parse::BBCode;
my %tag_def_html = (
code => {
code => sub {
my $c = $_[2];
$c = Parse::BBCode::escape_html($$c);
"$c"
},
},
perlmonks => 'url:%{parse}s',
url => 'url:%{parse}s',
i => '%{parse}s',
b => '%{parse}s',
);
my $bbc2html = Parse::BBCode->new({
tags => {
%tag_def_html,
},
}
);
my $text = <<'EOM';
[i]italic [b]bold italic [/b][/i]
[perlmonks=123]foo [i]italic[/i][/perlmonks]
[url=javascript:alert(123)]foo [i]italic[/i][/url]
[code]foo[b][/code]
[code]foo[code]bar[/code][/code]
[i]italic [b]bold italic [/i][/b]
[b]bold?
EOM
my $parsed = $bbc2html->render($text);
print "$parsed\n";
__DATA__
italic bold italic <html>
foo <html>italic
foo <html>italic
foo[b]
foo[code]bar<html>[/code]
italic [b]bold italic <html>[/b]
[b]bold?