in reply to Re: RegEx to match unique string of digits
in thread RegEx to match unique string of digits
my $str = '0000000000'; my @matched = $str =~ / [^\d]* (?:\b(?: 0{10,} | 1{10,} | 2{10,} | 3{10,} | 4{10,} | 5{10,} | 6{10,} | 7{10,} | 8{10,} | 9{10,})\b [^\d]* )* (\b\d{10,}\b) (?:[^\d]* \b(?: 0{10,} | 1{10,} | 2{10,} | 3{10,} | 4{10,} | 5{10, +} | 6{10,} | 7{10,} | 8{10,} | 9{10,})\b )* /gx; say "@matched"; __END__ 0000000000
The problem with your regexp is is that skipping sequences of 10 identical digits is optional. And that the heart, the (\b\d{10,}\b) part, isn't restrictive. And that Perl will do its utter best to find a match somehow, somewhere.
|
|---|