Perl - PHP：随机字符串生成

• Z时代
• 2024-01-10
• 分类：问答

我不知道perl语言，但我试图自定义用perl语言编写的应用程序。我想知道下面的Perl代码的逻辑或含义。我知道这段代码是用于生成一个随机字符串，但我想要它的细节，即我想知道如何在PHP中生成这个相同的随机字符串？请任何人给我这个Perl代码的PHP代码！Perl - PHP：随机字符串生成

sub generate_rand_string { 
    #warn "generate_rand_string"; 
    my $chars = shift 
     || 'aAeEiIoOuUyYabcdefghijkmnopqrstuvwxyzABCDEFGHJKMNPQRSTUVWXYZ23456789'; 
    my $num = shift || 1024; 
    require Digest::MD5; 
    my @chars = split '', $chars; 
    my $ran; 
    for (1 .. $num) { 
     $ran .= $chars[ rand @chars ]; 
    } 
    return Digest::MD5::md5_hex($ran); 
} 

请人帮我!!!!

回答：

function generate_rand_string($chars = null, $length = 1024) { 
    if($chars == null) { 
     $chars = 'aAeEiIoOuUyYabcdefghijkmnopqrstuvwxyzABCDEFGHJKMNPQRSTUVWXYZ23456789'; 
    } 
    $rand = ''; 
    for($i = 0; $i < $length; $i++) { 
     $rand .= $chars[ rand(0, strlen($chars) - 1) ]; 
    } 
    return md5($rand); 
} 

回答：

以上是 Perl - PHP：随机字符串生成 的全部内容， 来源链接： utcz.com/qa/262165.html