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

renee
 2005-01-13 08:40
#3810 #3810
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
#! /usr/bin/perl

use strict;
use warnings;

my $sign = '#';
my $string = qq~Normaler Text! #Aufzählung1# #Aufzählung2# Normaler Text usw. #Aufzählung3#~;

$string =~ s/$sign([^$sign]+)$sign\s?/<li>$1<\/li>/g;
$string =~ s/(<li>.*?<\/li>(?!\s*?<li>))/<ul>$1<\/ul>/g;

print $string;

Ausgabe:
Code: (dl )
1
2
~/entwicklung 5> perl string.pl
Normaler Text! <ul><li>Aufzählung1</li><li>Aufzählung2</li></ul>Normaler Text usw. <ul><li>Aufzählung3</li></ul>
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