sub RandomString { my $len = shift || 15; my @chars = ( "A".."Z", "a".."z", 0..9); return join '', map { $chars[ rand @chars ] } 1..$len; }
In reply to Re: Generate (somewhat) Random Strings
by Anonymous Monk
in thread Generate (somewhat) Random Strings
by shotgunefx
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |