String zwischen 2 Zeichen (#) auslesen (Seite 2) (Perl/CGI)

[thread]384[/thread]

String zwischen 2 Zeichen (#) auslesen (Seite 2)

Leser: 2

Cryog3n

2005-05-12 13:58

User since
2004-12-17
18 Artikel
BenutzerIn
[default_avatar]

Hallo renee,

das funktioniert soweit sehr gut. Danke dafür :o) aber wie krieg ich das nun hin, dass er mir meinen kompletten Text aus der DB nach allen Links durchsucht?

Beispiel:

Hallo klicke bitte ~hier§http//url.de~ Wenn Dir das nicht gefällt, dann klicke doch mal ~da§http//woanders.de~ Das wars auch schon.

Er muss eben den ganzen Text wie bei den Aufzählungszeichen durchsuchen und jedesmal eben die Aktion ausführen, aber irgendwie hab ich ein Brett vorm Kopf. Vielleicht kann ich jedesmal wenn er was gefunden hat das in eine Variable schreiben und dann mit Deiner Methode behandeln und das dann wieder in die Textvariable zurückschreiben? Ne das wäre irgendwie... hm...

Vielleicht könnt Ihr mir noch etwas helfen. Danke!

Gruß, Cryog3n

renee

2005-05-12 14:15

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

#! /usr/bin/perl

use strict;
use warnings;

my $string = qq!Hallo klicke bitte ~hier§http//url.de~ Wenn  Dir das nicht gefällt, dann klicke doch 
       mal    ~da§http//woanders.de~ Das wars auch schon
          ~Foobar§http://test.de~!;
my $linksign = '~';
my $delimiter = '§';

$string =~ s!$linksign([^$delimiter]*?)$delimiter([^$delimiter]*?)$linksign!<a href="$2" target="_blank">$1</a>!sg;
print $string,"\n";

\n\n

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/

Cryog3n

2005-05-12 14:38

User since
2004-12-17
18 Artikel
BenutzerIn
[default_avatar]

Yiha, super Danke Dir! Funktioniert einwandfrei!!! :)

View all threads created 2004-12-17 15:34.