Noah wrote:
Hi List,
Hello,
Is there a more optimal way to present this data structure without
becoming completely convoluted?
--- snip ---
for my $key (sort keys %usernames) {
my $found = 0;
for my $knownusername (@knownusernames) {
if ($knownusername eq $key) {
$found = 1;
}
}
print FIXTURE "*** Username $key is a configured and not
familiar\n" if ($found eq 1);
}
print
map "*** Username $_ is a configured and not familiar\n",
grep exists $usernames{ $_ },
@knownusernames;
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
