Regex question.

Hi all,

Thanks for all the help provided so far in my earlier queries. I have a 
query regarding regexes.
I am to match only one specific word in a wordlist which has only those 
alphabets which it contains and none other than that.

For example:

My Wordlist contains:

alpha
alpha1
beta
betaze
gamma
gamman
gammano

I want to match any scrambled word with a word in the wordlist which has 
exactly the same alphabets may be unscrambled/scrambled no other 
alphabets. Say, If I enter 'ammag' (scrambled word for gamma), it should 
only match 'gamma' and NOT 'gamman' | 'gammano'(which my current code is 
doing).

Here is the code:
-----------------
use strict;
use warnings;

my($a,$b,$c,$d,$e,$f);
while(1)
{
print "Enter a word: ";
my $this=<STDIN>;
chomp($this);
($a,$b,$c,$d,$e,$f)=split('',$this);
open (FH,'wordlist.txt');
while (<FH>)
{
if (($_=~ /$a/) && ($_=~ /$b/) && ($_=~ /$c/) && ($_=~ /$d/) && ($_=~ 
/$e/) && ($_=~ /$f/))
{print $_;}
}
close FH;
}
-------------------------------

The wordlist contains even 5/6/7 alphabet words.My second thought on 
this is that may be I also need to determine length of the words and 
accordingly, build up the search criteria, so to match exactly the same 
length of word in the wordlist.

Any suggestions?

Thanks

-- 
Gunwant Singh.

"What is the sound of Perl? 
Is it not the sound of a wall that people bang their heads against?"

• Regex question. by Gunwant Singh
• anagrams (was: Re: Regex question.) by Dr.Ruud
• Re: anagrams by Gunwant Singh
• Re: anagrams by Brad Baxter
• Re: anagrams by Dr.Ruud