Frage zu Regular Expressions

Moin,

wie wärs mit:

if ($warningLimits =~ /^(\d{1,10}),(\d{1,10}),(\d{1,10})(,(\d{1,})|)(,(\d{1,})|)$/) {
   #foo
}

Gruß
blafasel

Zitat

Original von sigma7
Einfach ",([0-9]{1,}" erfordert stets das Komma.

(,[0-9]{1,10})*

Sollte doch gehen, oder gilt das "*" nicht in den Perl-RegEx?

Zitat

Original von sigma7
Geht schon, nur ist dann $4 inkl. Komma.

Naja, das "," sollte sich doch in Perl schnell wegeditieren lassen, oder?

Zitat

Originally posted by sigma7

Die zusätzlichen Klammern sind eine Idee ... Aber warum die Pipe Symbole?

Die Pipe ist ein "oder". Erwartet wird also entweder "ein Komma und eine Zahl", oder "nichts".

Kurzer schuss ins blaue: Hat Getopts zw. Longopts da keine option für ?

mit 'awk' geht's so:

#!/bin/sh


awk --re-interval '{


    if (match($0, "^([0-9]{1,9}),([0-9]{1,9}),([0-9]{1,9})(,([0-9]{1,9}))?(,([0-9]{1,9}))?$", a)) {


        print "--> " a[0]
        print "*--> " a[1]
        print "*--> " a[2]
        print "*--> " a[3]
        print "--> " a[4]
        print "*--> " a[5]
        print "--> " a[6]
        print "*--> " a[7]
    } else {
       print "NOMATCH"
    }
}' << !
2,3,4,5,6
!

und liefert diese Indices (die ich mit '*' gekennzeichnet habe sind fuer dich relevant)

--> 2,3,4,5,6
*--> 2
*--> 3
*--> 4
--> ,5
*--> 5
--> ,6
*--> 6

die Regexp sollte in Perl genauso ausschauen

Moin moin,

ich hätte da noch folgenden Vorschlag:

if ($warningLimits =~ /^(\d{1,10})(,\d{1,10}){2,4}$/) {
   #foo
}

Gruß

Merten

Wenn das Komma nicht mit drin sein soll, muss die RegExp so aussehen:

/^(\d{1,10}),(\d{1,10}),(\d{1,10})(?:,(\d{1,10}))?(?:,(\d{1,10}))?$/

(?:XXX) gruppiert ohne sich den Inhalt zu merken.