>>>>> "Daniel" == Daniel Falkenberg <[EMAIL PROTECTED]> writes:
Daniel> Hey all,
Daniel> Once again I feel as if the following code is far too long and can
Daniel> easily be shortened. Could some one give me some ideas on doing this?
Daniel> foreach my $U (sort keys %PASS) {
Daniel> $PASS{$U}{'fname'} = "";
Daniel> $PASS{$U}{'lname'} = "";
Daniel> $PASS{$U}{'user'} = "";
Daniel> $PASS{$U}{'password'} = "";
Daniel> }
for my $U (keys %PASS) { # why sort it?
@{$PASS{$U}}{qw(fname lname user password)} = ("") x 4;
}
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
