in reply to searching problem
You can create a regex that matches any of the reversed words:
#!/usr/bin/perl use warnings; use strict; my @words = qw(mamy dady bal foo bar ymamaa arabic); my $regex = join '|', map scalar reverse, @words; $regex = qr/$regex/; print "$_\n" for grep /$regex/, @words;
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: searching problem
by BillKSmith (Monsignor) on Jan 18, 2013 at 13:45 UTC | |
Re^2: searching problem
by Lotus1 (Vicar) on Jan 18, 2013 at 22:57 UTC |
In Section
Seekers of Perl Wisdom