... I do not want right appended to $class if Smart is in $text.
Your code seems to me to do what you want.
In the first case, Smart is in $text and right is not appended. In the second case, Smart is not in $text and left is appended.c:\@Work\Perl\monks>perl -wMstrict -le "my @big_images = qw(xsMaRty Dull Boring); ;; my $text = 'Smart'; ;; my $class = 'svg_group'; $class .= ' right' unless grep(/$text/i, @big_images); ;; print qq{'$class'}; ;; $text = 'Xxx'; ;; $class = 'svg_group_2'; $class .= ' left' unless grep(/$text/i, @big_images); ;; print qq{'$class'}; " 'svg_group' 'svg_group_2 left'
Update: You may also be interested in any and none in List::Util.
Give a man a fish: <%-{-{-{-<
In reply to Re: How do I get an exclusion with grep?
by AnomalousMonk
in thread How do I get an exclusion with grep?
by Lady_Aleena
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |