note
Kenosis
<p><em>Gotta validate the inputted word by checking that it indeed consists of the chars in $random_string.</em></p>
<p>Perhaps I'm misunderstanding you, but this sounds like you want to validate that the two sets of string characters are equal (the 'compare uniquely')--not that the two strings are equal. If this is the case, the following is an option:</p>
<c>
use strict;
use warnings;
my $word = 'FHDJSKAL';
my $random_string = 'ALSKDJFH';
if ([sort ("\U$word" =~ /./g)] ~~ [sort ("\U$random_string" =~ /./g)]) {
print "Good word.\n";
}
else {
print "Try again.\n";
print "\n";
}
</c>
<p>Hope this helps!</p>
<p><strong>Update</strong>: Replaced the hash solution with one using the smart operator (<c>~~</c>), as the former didn't match properly.
1005402
1005402