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


Syntactic Confectionery Delight
	PerlMonks

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

by McDarren (Abbot)

on Dec 30, 2005 at 01:01 UTC ( [id://519915]=note: print w/replies, xml )

Need Help??

in reply to Using regex to match double letters, and only double letters

You need to use capturing parentheses, and then backreference. EG:

#!/usr/bin/perl -w
use strict;

while (<DATA>) {
    next if ($_ !~ /([A-Za-z])\1/);
    print;
}

__DATA__
balloon
hello
world
foo
bar
perlmonks
merry
christmas
[download]

Which gives:

balloon
hello
foo
merry
[download]

See perlre for more information.

Hope this helps,
Darren :)

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

Replies are listed 'Best First'.
Re^2: Using regex to match double letters, and only double letters by kwaping (Priest) on Dec 30, 2005 at 02:51 UTC
Good solution! I couldn't help but golf it a little. :) `#!/usr/bin/perl -w use strict; while (<DATA>) { print if (/([a-z])\1/i); } __DATA__ balloon hello world foo bar perlmonks merry christmas` [download]	[reply] [d/l]
Re^2: Using regex to match double letters, and only double letters by Anonymous Monk on Dec 30, 2005 at 02:07 UTC
That helps immensely, thank you very much indeed. Why I didn't think of that, I shall never know.	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

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

Chatterbox^?

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

Other Users^?

Others having an uproarious good time at the Monastery: (7)

As of 2024-04-23 18:42 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found