генерация случайной строки на perl

вообщем пишу одинскрипт надо случайно ненерить строку текста -типо пароль рамдомный можно статистической длины но вида Wq1Ys` ну вы поняли из мусора всякого -- чето ничего кроме как взять массив символов и из него рамдомно выдирать символы и слепливать их в голову не приходит

посоветуйте наверняка есть чтонить покрасивее

 

так пойдет?

Code:

print rand_pass(16);

sub rand_pass
{
	my $len = shift;
	my $pass;
	for (1..$len) {$pass .= chr(rand(94)+33)}
	return $pass;
}

 

<?php
function randomkeys($length)
{
$pattern = "1234567890abcdefghijklmnopqrstuvwxyz";
$key = $pattern{rand(0,35)};
for($i=1;$i<$length;$i++)
{
$key .= $pattern{rand(0,35)};
}
return $key;
}
?>

 

ф-ии

или

 

омг...
он же попросил красивое решение, а вы оба пишете то же самое, что он сам и придумал.. )

 

я сейчас прямо перед чтением ответов допер что через chr можно заделать -- а тут диджи даже и код готовый кинул спасиб =)

 

Code:

use Digest::MD5;my@chars=(97..122);$str.=chr$chars[int rand scalar@chars]for(1..16);$str=Digest::MD5::md5_hex($str)

 

Code:

@chars = ( "A" .. "Z", "a" .. "z", 0 .. 9, qw(! @ $ % ^ & *) );
$password = join("", @chars[ map { rand @chars } ( 1 .. 8 ) ]);

 

археолог