$data = join(' ', $name, $text);
# Result: "foo this is foo's test"
if (
$name =~ m{^(
foo |
bar |
lorem |
ipsum
)$}x
) { $data =~ s/$1 ?//gi; }
# "foo" matches so remove it
# Result: "this is 's test"
($pattern) = $dbh->selectrow_array("SELECT GROUP_CONCAT(contains SEPARATOR '|') FROM tableA");
# Result: something like $pattern = "this|that|(?<TOT>the.other.thing)"
if ($data =~ /($pattern)/si &&
(
$name ne 'blah' ||
# don't let the (keys %+)[0] scare you, it's just the group name in the pattern match
(keys %+)[0] ne 'TOT'
)
) {
# do something
}if (
$name eq 'blah' &&
(keys %+)[0] eq 'TOT'
) {
# do nothing
}
elsif ($data =~ /($pattern)/si) {
# do something
}
($pattern) = $dbh->selectrow_array("SELECT GROUP_CONCAT(contains SEPARATOR '|') FROM tableA");
# Result: something like $pattern = "this|that|(?<TOT>the.other.thing)"
while ($data =~ /($pattern)/i) {
# Put the conditions here
if (
(
$name eq 'blah' &&
(keys %+)[0] eq 'TOT'
) ||
# removed the () from here, matching the $1 from $pattern instead
$name =~ m{^
foo |
bar |
lorem |
ipsum
$}x
) {
$data =~ s/$1 ?//gi;
}
else {
# do something
last;
}
}($pattern) = $dbh->selectrow_array("SELECT GROUP_CONCAT(contains SEPARATOR '|') FROM tableA");
# Result: something like $pattern = "this|that|(?<TOT>the.other.thing)"
$count = split('\|', $pattern);
# Result: close to the number of delimited patterns, maybe a little high if there are nested |
$x = 0;
while ($data =~ /($pattern)/i) {
$x++;
if (
# safety net
$x < $count &&
# Put the conditions here
(
(
$name eq 'blah' &&
(keys %+)[0] eq 'TOT'
) ||
# removed the () from here, matching the $1 from $pattern instead
$name =~ m{^
foo |
bar |
lorem |
ipsum
$}x
)
) {
$data =~ s/$1 ?//gi;
}
else {
# do something
last;
}
}
I usually avoid while() statements because of the potential of an infinite loopIt sounds like you're doing the same thing I resort to when I don't trust a While or Until type of condition. (i.e. always ;)) Conceptually:
