Thread String zwischen 2 Zeichen (#) auslesen (12 answers)
Opened by Gast at 2004-12-17 15:34

renee
 2005-05-12 14:15
#3814 #3814
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
#! /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

<!--EDIT|renee|1115892972-->
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/

View full thread String zwischen 2 Zeichen (#) auslesen