[Dresden-pm] Regex

[create-soft at freenet.de]

Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <http://mail.pm.org/pipermail/dresden-pm/attachments/20090328/8314b721/attachment.html>
-------------- nächster Teil --------------
On Thu, 26 Mar 2009, at 14:16:50, Falk Herrmann <falk.herrmann at bike24.net> wrote:
>Hi,
>
>hat jemand eine Idee zu regulären Ausdrücken um Leerzeichen zu 
>entfernen, welche nur zwischen Zahlen auftreten?
>
>Bsp.:
>
>"wort1 12 34 56 wort 2"
>
>soll zu
>
>"wort1 123456 wort 2"
>
>werden.
>
>
>Gruß Falk.
>
#!/usr/bin/perl -w
#*** test_lookaround.pl ***#
#-------------------------------------------------
 use strict;
#-------------------------------------------------
 my $str = "1 2 3 1.wort1 12 34 56 tab 1 \t\t 2 tab 2.wort 2 das 3.wort24 1   2   3   4 endline 1 \n\n\n 2 beginline2 1 1 1 1 10 4";
 $str =~ s{(?:(?:\A)|(?<=\s))([\d ]+)(?:(?=\s)|(?:\z))}{join'',split/ /,$1}eg;
 print("$str\n");
#-------------------------------------------------
 Gruß Torsten


Heute schon ge"freeMail"t?
Jetzt kostenlose E-Mail-Adresse sichern!
http://email.freenet.de/dienste/emailoffice/produktuebersicht/basic/mail/index.html?pid=6831