> Why not just specify a non-digit for the first > character: > > my @a = ( 0 .. 9, 'a' .. 'z', 'A' .. 'Z'); > > my $password = join '', $a[ 10 + rand( @a - 10 ) ], > map $a[ rand @a ], 1 .. 5; > > > > John
Ok great, but I do not fully understand this. Will you explain in English? thx __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
