此代码生成多少个随机字符串？

发布于 2024-09-11 04:51:12 字数 375 浏览 5 评论 0原文

我正在考虑在 perl 中使用这个随机字符串生成器：

sub generate_random_string {
    my $length = 12;
    my @chars = qw/2 3 4 5 6 7 8 9 A B C D E F G H J K M N P Q R S T U V W X Y Z/;
    my $str = '';
    $str .= $chars[int rand @chars] for 1..$length;
    return $str;
}

这将生成多少个唯一的字符串？如果我延长字符串的长度，还有多少个可用的唯一字符串？

另外，如何计算生成相同字符串两次的概率（假设字符串的长度保持为 12）？

原文

I am considering this random string generator in perl:

sub generate_random_string {
    my $length = 12;
    my @chars = qw/2 3 4 5 6 7 8 9 A B C D E F G H J K M N P Q R S T U V W X Y Z/;
    my $str = '';
    $str .= $chars[int rand @chars] for 1..$length;
    return $str;
}

How many unique strings will this generate? If I extend the length of the string, how many more unique strings are available?

Also, how do I calculate the probability of generating the same string twice (assuming the length of the string stays at 12)?

分享到QQ

分享到微博