Re^2: Using regex to match double letters, and only double letters


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re^2: Using regex to match double letters, and only double letters

by choroba (Cardinal)

on Apr 16, 2018 at 15:39 UTC ( [id://1212999]=note: print w/replies, xml )

Need Help??

in reply to Re: Using regex to match double letters, and only double letters
in thread Using regex to match double letters, and only double letters

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

for my $s (qw( xxabyycdzz axxbmmmcyyd xxyy exxyy xxyyf xxgyy mmm mmmen
+nn )) {
    say for '---', $s;
    say $2 while $s =~ /(?|^((.))\2(?!\2)
                          |(?<=(.)(?!\1))(.)\2(?!\2))/gx;
}
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re^2: Using regex to match double letters, and only double letters Select or Download Code

Replies are listed 'Best First'.
Re^3: Using regex to match double letters, and only double letters by Locutus (Beadle) on Apr 16, 2018 at 15:46 UTC
Your regex (as a whole) matches the "something else before" character as well - printing the content of a certain capture group is cheating! ;-)	[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1212999]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others avoiding work at the Monastery: (6)

As of 2024-04-24 09:19 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found