Non si sa mai a qualcuno al volo può servire 🙂 Vi copio una funzione per la generazione casuale di stringhe in PERL o Perl Random String Generator. La funzione consente di passare una variabile numerica per specificare la lunghezza della stringa.
sub random_string_generator_perl
{
#lunghezza della stringa da generare
my $length_of_random_string=shift;
# the random string to generate
my @chars=('a'..'z','A'..'Z','0'..'9');
my $random_string;
foreach (1..$length_of_random_string)
{
$random_string_perl.=$chars[rand @chars];
}
return $random_string_perl;
}
my $randomID= &random_string_generator_perl(11);
