Regex Help

[Zoom1234]

Hi,

$group = "A,B,C,D" ;
$str = "A,D" ;

I want to see if $group contains letters A and D.
How is it possible without splitting $str?

TIA

 

[Kirsle]

if ($group =~ /$str/) {

 

[stevexff]

Don't think so. You'd have to split $str on ',' and check each one individually.

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[Zoom1234]

Kirsle

I have to match both A and D here.So simple if ($group =~ /$str/) won't work here.

Any ideas or as Steve says its not possible?

 

[Kirsle]

Ohh, sorry, I misread your post.

You can try it in two different regexps:

if ($group =~ /A/ && $group =~ /D/) {
   print "$group contains A and D\n";
}

 

[BrianAtWork]

Here's a different way, that doesn't use a split, but the concept is almost the same as a split... Probably not what you need, but maybe it could help:

#!/usr/bin/perl -w
use strict;
my $group = "A,B,C,D" ;
my $str = "A,F,D,Z,B" ;
$str=~s/,/|/g;
my $re=qr($str);
my $matched=join(',' , $group=~/$re/g);
print "Matched on: $matched\n";

The output:

Matched on: A,B,D

Basically, I am converting the commas to pipes (the "OR" for a regex), and building a regex from that string.

Don't know if that works or not, but like I said, maybe a step in the right direction?