BBCodes? (Perl/CGI) - Perl-Community.de

[thread]837[/thread]

BBCodes?

TrioxX

2006-11-09 21:09

User since
2006-11-08
10 Artikel
BenutzerIn
[default_avatar]

Hallöchen,

es gibt ja das Modul HTML::BBCode , mit welchem man BBCodes wandeln könnte.

Jetzt wurde ich etwas gefragt, worauf ich selbst keine Antwort habe:

Code: (dl )

sub formatting_handler
{
    my($self,$main,$text) = @_;

    my @links = ('[',']');
    $$text =~ s/(<a [^>]+>[^<]*<\/a>)/removeLinks(\@links,$1)/ige; # save all links and remove them

    $$text =~ s/\[imgl\=\]/&#mark0;/g;
    $$text =~ s/\[img\=([^\]]+)\]/<img src="$1"\>/g;

    $$text =~ s/\[bl\=\]/&#mark1;/g;
    $$text =~ s/\[b\=([^\]]+)\]/<b>$1<\/b>/g;;

    $$text =~ s/&#mark(\d+);/$links[$1]/g; # put the links back
    
    $$text =~ s/\[il\=\]/&#mark2;/g;
    $$text =~ s/\[i\=([^\]]+)\]/<i>$1<\/i>/g;

    $$text =~ s/\[ul\=\]/&#mark3;/g;
    $$text =~ s/\[u\=([^\]]+)\]/<u>$1<\/u>/g;;
    
        $$text =~ s/\[blinkl\=\]/&#mark4;/g;
    $$text =~ s/\[blink\=([^\]]+)\]/<blink>$1<\/blink>/g;
}

Wie man sieht, sollen hier verschiedene BBCodes umgewandelt werden. Tuts natürlich ned.

Geht das ohne das Modul überhaupt? Ich persönlich denke eher weniger aber ich hab mich mit so einem Format Filter noch nie beschäftigt.

Wie müsste das ganze aussehen, damit es funktionieren würde?

betterworld

2006-11-09 22:22

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Was genau geht denn nicht? Offenbar soll diese Funktion eine ganze Reihe von BBCodes ersetzen. Hast Du alle probiert, geht keiner? (In dem Fall wuerde es wohl auh reichen, wenn Du nicht alle Zeilen pastest.) Vielleicht wird die Funktion auch einfach falsch aufgerufen. Und wofuer ist $main?

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

TrioxX

2006-11-09 22:45

User since
2006-11-08
10 Artikel
BenutzerIn
[default_avatar]

1. main ist für alle Plugins das zentrale Objekt, das Zugriff auf alle relevanten Daten und Methoden des Chats ermöglicht. Es wird bei jedem Plugin-Aufruf übergeben. Die Eigenschaften eines Objekts werden mit $main->{property} bzw. mit $main->{property}{subproperty} (falls die Eigenschaft selber ein Hash ist) abgerufen, die Methoden ruft man mit $main->method(param1, param2, ...) auf.

2. Getestet ist jetzt der Tag img

Unmatched [ in regex; marked by <-- HERE in m/\[img][ <-- HERE /

TrioxX

2006-11-09 22:49

User since
2006-11-08
10 Artikel
BenutzerIn
[default_avatar]

Ich habs mal bei mir ausprobiert... Der Thread hier scheint falscher Alarm gewesen zu sein, denn ich hatte keine Probleme ^^

EDIT:

Er will, dass ein vordefinierter Text als Link umgesetzt werden kann z.B. So\n\n

TrioxX

2006-11-23 13:20

User since
2006-11-08
10 Artikel
BenutzerIn
[default_avatar]

Sodele...

Also weder ich noch irgendjemand in meinem Bekanntenkreis weiß eine Lösung...

$$text =~ s/\[imgl\=\]/&#mark0;/g;
$$text =~ s/\[img\=([^\]]+)\]/<img src="$1"\>/g;

Warum geht das nicht? Desweiteren besteht nachwievor das Problem, dass wir alle scheinbar zu plöde sind, eine BBCode Umwandlung zu schaffen die das o.g. umsetzen kann :-/

renee

2006-11-23 13:33

User since
2003-08-04
14371 Artikel
ModeratorIn

Gibt's ne Fehlermeldung?

Also mit

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my $test = 'Ein [img=hallo] Test';
my $text = \$test;

$$text =~ s/\[imgl\=\]/&#mark0;/g;
$$text =~ s/\[img\=([^\]]+)\]/<img src="$1"\>/g;

print $$text;

funktioniert es...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

TrioxX

2006-12-04 20:48

User since
2006-11-08
10 Artikel
BenutzerIn
[default_avatar]

Er hat eher Probleme mit dem URL BBCode. Der Sinn ist der gleiche

Er will halt

Code: (dl )

[url=http://www.example.com]du hast doofe ohren[/url]

machen

Also Ausgabe dann:

du hast doofe ohren

Bei dem img Tag sollte es wohl so sein, dass er per [ / img ] beendet werden soll damit man bsp. in den ersten Tag noch ein Alt-Attribut mit angeben könnte o.ä.

--- Modedit Gwendragon
URL geändert. Code-Tag hinzugefügt
Bitte hier keine existente Domains als Beispiel nehmen!
Dafür gibt es example.com!
---\n\n

topeg

2006-12-04 22:10

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Wie wäre es dann so:

Code: (dl )

$text=~s|\[url=["']?(.+?)["']?\](.+?)\[/url\]|<a href="$1">$2</a>|gs

Das ist aber ungetestet.

View all threads created 2006-11-09 21:09.