Re^2: Regex pattern that fails when string contains a certain pattern

in reply to Re: Regex pattern that fails when string contains a certain pattern
in thread Regex pattern that fails when string contains a certain pattern

Thanks!!!
You're right: my specification was incomplete.
Extended specification: Strings starting with a number should not be matched as well

Comment on Re^2: Regex pattern that fails when string contains a certain pattern

Replies are listed 'Best First'.
Re^3: Regex pattern that fails when string contains a certain pattern by tybalt89 (Monsignor) on Dec 22, 2016 at 09:51 UTC
`#!/usr/bin/perl # http://perlmonks.org/?node_id=1178340 use strict; use warnings; while(<DATA>) { print /^(?!.*(?:-\|_\|^)\d)/ ? " matched $_" : "not matched $_"; } __DATA__ aa1.2 aa1_bb2 aa1_2 aa1_2bb 1aa` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Regex pattern that fails when string contains a certain pattern
by tybalt89 (Monsignor) on Dec 22, 2016 at 09:51 UTC

#!/usr/bin/perl

# http://perlmonks.org/?node_id=1178340

use strict;
use warnings;

while(<DATA>)
  {
  print /^(?!.*(?:-|_|^)\d)/ ? "    matched $_" : "not matched $_";
  }

__DATA__
aa1.2
aa1_bb2
aa1_2
aa1_2bb
1aa
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom