Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re^2: Regex Matching

by ww (Archbishop)
on Dec 05, 2012 at 21:48 UTC ( #1007410=note: print w/replies, xml ) Need Help??

in reply to Re: Regex Matching
in thread Regex Matching

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)];

"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{

Courtesy of Corion's good works (+ +), we have our own, local 'sorta go a ways back' machine.

Replies are listed 'Best First'.
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..."

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1007410]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (3)
As of 2018-06-23 10:41 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (125 votes). Check out past polls.