суббота, 14 августа 2010 г.

perl generate random string

sub generate_random_string
{
my $length_of_randomstring=shift;# the length of
# the random string to generate

my @chars=('a'..'z','A'..'Z','0'..'9','_');
my $random_string;
foreach (1..$length_of_randomstring)
{
# rand @chars will generate a random
# number between 0 and scalar @chars
$random_string.=$chars[rand @chars];
}

return $random_string;
}

print generate_random_string(14);

Комментариев нет:

Отправить комментарий