Re^2: ignore some delimiters while using split

print if (/([a-z])\s+\1\s+\1\s*\z/);

will let you do your checks within the regex.

Comment on Re^2: ignore some delimiters while using split Download Code

Replies are listed 'Best First'.
Re^3: ignore some delimiters while using split by AnomalousMonk (Archbishop) on Aug 13, 2010 at 10:19 UTC
And `print if m{ (whatever) (?: \s+ \1){$n} \s* \Z }xms;` generalizes to any n. `>perl -wMstrict -le "my @lines = ( 'foo A A A', 'foo bar A B A', 'foo bar baz A A A' ); my $n = 3; $n -= 1; for my $line (@lines) { print qq{'$line'} if $line =~ m{ \b ([[:alpha:]]) (?: \s+ \1){$n} \s* \Z }xms; } " 'foo A A A' 'foo bar baz A A A'` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: ignore some delimiters while using split
by AnomalousMonk (Archbishop) on Aug 13, 2010 at 10:19 UTC

And
print if m{ (whatever) (?: \s+ \1){$n} \s* \Z }xms;
generalizes to any n.

>perl -wMstrict -le
"my @lines = (
   'foo A A A', 'foo bar A B A', 'foo bar baz  A  A  A'
   );
 my $n = 3;
 $n -= 1;
 for my $line (@lines) {
   print qq{'$line'}
      if $line =~ m{ \b ([[:alpha:]]) (?: \s+ \1){$n} \s* \Z }xms;
   }
"
'foo A A A'
'foo bar baz  A  A  A'
[download]

[reply]
[d/l]
[select]