perlquestion cisco88 <p>Hi all, <br/> I wrote this simple code to create a password.<br/> <br/> <c>perl -e '@lett = (a..z); $len = "$#lett"; foreach (1..20) {print $lett[rand($len) % $len + 3 ];} print "\n";'</c><br/> <br/> Given that I only read half chapter 1 of "Programming in Perl" and maybe more complex solutions aren't yet in my grasp.. how you'd do it?<br/> <br/> Thanks and have a good day.<br/> <br/> </p> <div class="pmsig"><div class="pmsig-1014225"> -- Luca Francesca <br/> <luca.francesca@ciscoland.eu><br/> SysAdmin/Integrator <br/> @ <br/> Vodafone Italy & Ntt Data <br/> </div>