regex: mehrere Treffer pro Zeile - #64432 (Allgemeines zu Perl)

bloonix

2006-04-06 15:42

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=master,06.04.2006, 13:18]Du musst die abfrage in eine schleife packen.[/quote]
Meinst du sowas...

Code: (dl )

1
2
3

foreach (split /\s+/, $line) {
   doSomeThing($_) if /([a-z0-9\-._]+@[a-z0-9\-.]+\.(de|org))/;
}

? :)

Edit:

müsste auch gehen ...

Code: (dl )

doSomeThing($_) foreach /\s*([a-z0-9\-._]+@[a-z0-9\-.]+\.(de|org))\s*/g;

Falls statt des Leerzeichens auch andere Zeichen auftreten
können - zum Beispiel ein Komma -, muss die Regex verfeinert
werden.\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.