#!/usr/bin/perl
use strict;
use warnings;
use Parse::BBCode;
# erzeuge neues Parse::BBCode Objekt
my $parser = Parse::BBCode->new({
# definiere Tags, die Du verarbeiten willst
tags => {
# [ code ][ /code ] soll verarbeitet werden
code => sub {
my ($parser,$attr,$content) = @_;
return '' . $content . '';
},
},
});
# ohne die Leerzeichen in den BB-Tags
my $text = 'Irgendein langer text mit [ code]#/usr/bin/perl[ /code]';
my $parsed = $parser->render( $text );
print $parsed; # Irgendein langer text mit #/usr/bin/perl