Todd Wade wrote at Sat, 06 Jul 2002 21:25:24 +0200: > > I might use something like this: > > #!/usr/bin/perl -w > > use strict; > > print 'uid: ', random_string(), "\n"; > print 'pwd: ', random_string(), "\n"; > > sub random_string { > > my($string) = ''; > my($length) = 6; > my(@chars) = ('A' .. 'Z', 'a' .. 'z', 0 .. 9); > while (length($string) != $length) { > $string .= $chars[ rand($#chars) ]; > } > return($string); >
I would be too lazy to write my own random_string subroutine. I think String::Random would be my favourite :-) Cheerio, Janek -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]