Ziehen Sie eine positionierte gruppierte und sich wiederholende Zeichenfolge mit Regex?

Question

Lets sagen, dass ich die Datenausgabe wie die folgenden haben:

0; root.; 0; MLG.; 247; root.; 249; MLG.; 2390; toasty.; ... someNumber; username.;

Ich versuche, den Benutzernamen zu ziehen, während die Zahl zu ignorieren und vorherigen, um es aus Semikolon, wenn die Zahlen nicht 0, und dies für eine unbekannte Anzahl von Malen zu tun. In Bezug auf diese Daten sollte die Ausgabe erscheinen günstig wie:

root. MLG. toasty.

Die Syntax Perl Format werden muss. Die Anwendung, die dies verwendet, nimmt keine Ausnahmen. Während ich vollständige Kontrolle darüber habe, wie diese Daten präsentiert werden (wie ich kann die Semikola neben den Zahlen entfernen und die eindeutige Nummer an den Benutzernamen mit einem Punkt und trennen Sie mit einem Semikolon) Ich möchte die Methode zu kennen mach das unabhängig.

I Einige der vielen aktuellen regexs versucht haben, ist wie folgt ...

(Die (?<field> ist die Regex nach dem Ende > ein Feldname durch die Anwendung für den Fall angegeben werden, um anzugeben und gezeigt jemand fragen)

• zieht alle Daten bis zum letzten Semikolon, ausgehend von denen die erste Zahl ist nicht gezeigt 0.

"(?<users_online>[1-9].*;)"

• Zieht alle Daten nach der ersten Instanz einer Zahl ungleich Null und ein Semikolon erscheint.

"[1-9];(?<users_online>.*?)"

• zieht alle Daten nach der ersten Instanz einer Nicht-Null-Zahl und ein Strichpunkt und gibt keine alphanumerischen Werte bis zum nächsten „Wort“ boundry up.

"[1-9];((?<users_online> \w+\b))"

Jedwedes Hilfe ist willkommen.

Answer 1

Sie können es wie folgt tun:

my $s = "0; root.; 0; MLG.; 247; root.; 249; MLG.; 2390; toasty.; ... someNumber; username.;"; 
#           ^--- added 
print join " ", $s=~/[1-9]0*; ([^;]+)/g; 

Sie müssen nur mindestens eine Ziffer beschreiben, die nicht eine Null vor eventuellen Nullen ist und eine geeignete Zeichenklasse zu verwenden, die das Semikolon ausschließt.