Regex Matching

ec1987 has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,
I'm in the process of writing a script that generates 8 Random Characters and the user has to make words from these characters. Each character can only be used once. For example, if the random sequence is FOTBIEIW and the user enters FOOT it will show an error message "No match". If the sequence was FOTBOIEW then FOOT would be acceptable.
To generate the random letters im using:

my @letter=('A'..'Z');
@rand='';

foreach(0..7){
$rand.=$letter[rand(@letter)];

Then I get the user to enter a word split it into an array.

This is where I get stuck.

for($count=0; $count<= ($wordLength - 1); $count++){
if($wordArray[$count] =~ /[$rand]/o{
[download]

Original content restored by GrandFather

Comment on Regex Matching Download Code

Replies are listed 'Best First'.
Re: Regex Matching by CountZero (Bishop) on Dec 05, 2012 at 20:37 UTC
Homework? I remember someone else posting exactly the same question some time ago. Use Super Search to find a lot of good suggestions. CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James My blog: Imperial Deltronics	[reply]
Re: Regex Matching by AnomalousMonk (Archbishop) on Dec 05, 2012 at 20:39 UTC
Don't they let you guys work together on these assignments? See Regex to compare (if) two strings (Uniquely - I will explain inside) and Need help with Peal! (so far).	[reply]
Re: Regex Matching by Kenosis (Priest) on Dec 05, 2012 at 21:42 UTC
It appears that the 'chalkboard' was just erased...	[reply]
Re^2: Regex Matching by ww (Archbishop) on Dec 05, 2012 at 21:48 UTC
but the thought lives on (edited to correct some rendering deficiencies)... `"Hi Monks, "I'm in the process of writing a script that generates 8 Random Characters and the user has to make words from these characters. Each character can only be used once. For example, if the random sequence is FOTBIEIW and the user enters FOOT it will show an error message "No match". If the sequence was FOTBOIEW then FOOT would be acceptable. "To generate the random letters im using:"` `my @letter=('A'..'Z'); @rand=''; foreach(0..7){ $rand.=$letter[rand(@letter)];` [download] </code> "`Then I get the user to enter a word split it into an array.` `"This is where I get stuck." for($count=0; $count<= ($wordLength - 1); $count++){ if($wordArray[$count] =~ /[$rand]/o{ [download] Courtesy of Corion's good works (+ +), we have our own, local 'sorta go a ways back' machine.`	[reply] [d/l] [select]
Re^3: Regex Matching by Kenosis (Priest) on Dec 05, 2012 at 21:54 UTC
~~"Once the chalkboard has been erased, it can't be unerased..."~~	[reply]

Back to Seekers of Perl Wisdom