perl rand lc/uc

Question

我试图在我的 42 个字符密码中随机获取小写/大写。不知何故我反而得到:

ucclcjuczlclucmlc0lcdlc5lc0ucdlccucmucquc5ucslc4lckucxuctlcvlcquclucpuc0ucvlczucducauczlcauc7lciucmlcplcjucolchucmucpuc9lcilcqlck

这是我的代码:

@a = (0 .. 9, 'a' .. 'z');
@case = ('lc','uc'); 
my $x = join '', map { scalar $case[rand(0-2)],  $a[int rand @a]}  0 .. 42;
print "$x\n";

有什么提示吗？

Answer 1

在提供大写和小写列表时使用 lc 和 uc 毫无意义:

use strict;
use warnings;

sub random_pwd {
    my $length = shift;
    my @chars = (0 .. 9, 'a' .. 'z', 'A' .. 'Z');
    return join '', @chars[ map rand @chars, 0 .. $length ];
}
print random_pwd(42);

但是，如果您希望随机化现有字符串中的大写字母，可以采用以下一种方法:

$str =~ s/(\w)/ rand() < 0.5 ? uc($1) : lc($1) /ge;

使用 [a-z] 而不是 \w (它也包括数字)有点严格，但是你失去的只是一些冗余处理(例如 uc ("L") 或 lc("2"))，这应该不是问题。