<?xml version="1.0" encoding="windows-1252"?>
<node id="323725" title="Re: making loop in perl script" created="2004-01-23 17:59:28" updated="2005-07-08 16:26:54">
<type id="11">
note</type>
<author id="243154">
PERLscienceman</author>
<data>
<field name="doctext">
Greetings Fellow Monk!&lt;br&gt;
&lt;br&gt;
I see in your script that you are trying to generate for your users random passwords.&lt;br&gt;
I would like to recommend to you this module: [cpan://Crypt::GeneratePassword].&lt;br&gt;
 I have found it to be quite useful.  Here is a snippet of code to demo it:
&lt;code&gt;
#!/usr/bin/perl -w
use strict;

my $minlen=6;
my $maxlen=10;

use Crypt::GeneratePassword qw(word chars);
my  $word = chars($minlen,$maxlen);
print "$word\n"; 
&lt;/code&gt;
</field>
<field name="root_node">
323687</field>
<field name="parent_node">
323687</field>
</data>
</node>
