Re^2: Regular expression for a comma separated string


Syntactic Confectionery Delight
	PerlMonks

Re^2: Regular expression for a comma separated string

by naderra (Novice)

on Nov 24, 2014 at 00:10 UTC ( #1108199=note: print w/replies, xml )

Need Help??

in reply to Re: Regular expression for a comma separated string
in thread Regular expression for a comma separated string

It doesn't have to be. I didn't mention earlier, I did try to break it down but with no success.

/^(?=[ACGT]{1,4},[ACGT]{1,4}$).*$/ &&
/^(?!.*(.).*\1.*,).*$/ &&
/^(?!,.*(.).*\1).*$/
[download]

Comment on Re^2: Regular expression for a comma separated string Download Code

Replies are listed 'Best First'.

Re^3: Regular expression for a comma separated string
by Anonymous Monk on Nov 24, 2014 at 00:43 UTC

my @lst = qw( A,G AG,CT TC,CA GAT,CGA CGAT,TG ,G
  ACGT X,A AA,G AC,GGC ATGA,TGG ATCXG,AAC ATA,TG GTA,YC);

for (@lst) {
    my $good = do {
        m/^ [ATCG]+ , [ATCG]+ $/x
          and not grep m/(.) .* \1/x, split ',';
    };
    print $_, $good ? ' good' : ' bad', "\n";
}
[download]

A,G good
AG,CT good
TC,CA good
GAT,CGA good
CGAT,TG good
,G bad
ACGT bad
X,A bad
AA,G bad
AC,GGC bad
ATGA,TGG bad
ATCXG,AAC bad
ATA,TG bad
GTA,YC bad
[download]

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

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

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others making s'mores by the fire in the courtyard of the Monastery: (1)

As of 2023-06-08 02:41 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?