Thanks,
I have:
sub {
# Displays random numbers/letters.
my @dig = ('0..9', 'a..z', 'A..Z');
srand(time ^ $$);
for (my $i = 0; $i++ < 8;) {
$RAND .= $dig[rand(@dig)];
}
return $RAND;
}
And the error:
Unable to compile 'random'. Reason: Global symbol "$RAND" requires explicit package name at (eval 7) line 6. Global symbol "$RAND" requires explicit package name at (eval 7) line 8.
I have:
sub {
# Displays random numbers/letters.
my @dig = ('0..9', 'a..z', 'A..Z');
srand(time ^ $$);
for (my $i = 0; $i++ < 8;) {
$RAND .= $dig[rand(@dig)];
}
return $RAND;
}
And the error:
Unable to compile 'random'. Reason: Global symbol "$RAND" requires explicit package name at (eval 7) line 6. Global symbol "$RAND" requires explicit package name at (eval 7) line 8.