RE: General quesion

#!/usr/bin/perl -w
use strict;

my(@array) = ('a'..'z',0..9);
my($pass);

for(1..8) {
 $pass .= $array[int(rand(scalar(@array)))];
}

print $pass;
exit();
[download]

lindex

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/
[download]

Comment on RE: General quesion Select or Download Code

Replies are listed 'Best First'.
RE: RE: General quesion by merlyn (Sage) on Aug 08, 2000 at 16:41 UTC
This line: `$pass .= $array[int(rand(scalar(@array)))];` [download] during a code review would have me scratching my head, pondering whether the author was getting paid by the character. I'd probably gently suggest, in the nicest but firmest tones, that it be replace with the much simpler and exactly effectively equivalent: `$pass .= $array[rand @array];` [download] -- Randal L. Schwartz, Perl hacker	[reply] [d/l] [select]
RE: RE: RE: General quesion by lindex (Friar) on Aug 08, 2000 at 16:53 UTC
Well ok maybe I never tested all the ways to get a rand element out of a list :\ I was just throwing in my two cents. Why the way I did it? Because it made since to me the first I ever tried todo such a thing :) lindex `/**************************/ jason@gost.net, wh@ckz.org http://jason.gost.net /***************************/` [download]	[reply] [d/l]