Zahlen bestimmter Größe im Text finden: RegEx Parser - #74819 (Allgemeines zu Perl)

bloonix

2007-03-07 16:09

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=renee,07.03.2007, 15:00]Die 0 wird nicht vorausgesetzt, weil das * 0,1 oder viele male bedeutet...[/quote]
Jauh, stimmt, aber leider besteht da noch immer das Problem, das eine
"Nichtzahl" am Anfang und am Ende verlangt wird.

Code: (dl )

use strict;
use warnings;

my @strings = ('foo 1 bar', '1 foo bar', 'foo bar 1');

for my $string (@strings) {
   print "$string\n" if $string =~ /\D0*([1234]?\d|5[0123])\D/gc;
}

foo 1 bar

Edit: Code hinzugefügt\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.