Thread Regex: fangende Klammer in Wiederholungsklammer (13 answers)
Opened by GUIfreund at 2014-10-21 13:42

Linuxer
 2014-10-21 18:36
#177919 #177919
User since
2006-01-27
3870 Artikel
HausmeisterIn

user image
naja, das ist ja relativ fix anzupassen:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#! /usr/bin/perl -l
use strict;
use warnings;

while ( <DATA> ) {

    if ( $_ =~  m/^X(<.+>(?: X<.+?>){0,4})/ ) {

        my @matches = map { s/^<+\s*|\s*>+$//g; $_ } split m/\s+X/, $1;

        print join "--", @matches;
    }
    else {
        print STDERR "no matches.";
    }
}

__DATA__
X<$!> X<$ERRNO> X<$OS_ERROR>
X<< $< >> X<$UID> X<$REAL_USER_ID>
X<$;> X<$SUBSEP> X<SUBSCRIPT_SEPARATOR>


Resultat:
Code: (dl )
1
2
3
$!--$ERRNO--$OS_ERROR
$<--$UID--$REAL_USER_ID
$;--$SUBSEP--SUBSCRIPT_SEPARATOR
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View full thread Regex: fangende Klammer in Wiederholungsklammer