perl rand lc/uc

Question

我正在尝试在42个字符的密码中随机使用小写/大写。以某种方式我得到的是：

uccljuczlclucmlc0lcdlc5lc0ucdlccucquc5ucslc4lckucxuctlcvlcquclucpuc0ucvlczucucucauczlccauc7lciumlcplcjucolchucmucpuc9lclcqlck

这是我的代码：

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

有什么提示吗？

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")），这应该不是问题。

Answer 2

问题是，您有一些字符串（uc或lc），希望作为代码执行，但它们从未传递给解析器。您可以使用eval EXPR将它们传递给解析器，但这不是正确的方法。

my @chars = ('0'..'9', 'a'..'z');
my $passwd =
   join '',
    map rand >= 0.5 ? uc : lc,
     map $chars[rand(@chars)],
      1..42;

或者更好：

my @chars = ('0'..'9', 'a'..'z', 'A'..'Z');
my $passwd =
   join '',
    map $chars[rand(@chars)],
     1..42;

Answer 3

为什么不选择一个随机的字母数字字符（对于字母，可以是大写或小写）？

use strict;
use warnings;
my @chars=("a".."z","A".."Z",0..9);
my $password="";
foreach(1..42)
{
  #tack on a random alphanumeric character
  $password.=$chars[int(rand(@chars))] 
}
print $password . "n";

如果你想让lc或uc成为这个过程的一个明确部分，你可以做一些事情，比如：

use strict;
use warnings;
my @chars=("a".."z",0..9);
my $password="";
foreach(1..42)
{
  my $char=$chars[int(rand(@chars))];
  $char=uc($char) if rand() <0.5;
  $password.=$char;
}
print $password . "n";

Answer 4

您的代码将字符串"lc"或"uc"与随机字母连接在一起，而不是将lc或uc函数实际应用于随机字母。（无论如何，您都不能引用Perl5.16之前的内置函数。）

Answer 5

CPan不是wOndERFuL吗

use Text::Capitalize;
print scramble_case "Isn't CPAN wonderful?";

Answer 6

已经有几个好的答案了，我将再给出两个，一个看起来像你的想法，第二个使用CPAN

首先，按照OP的方式：制作匿名子例程，返回其参数的uc或lc，然后在随机字符上随机调用其中一个。

#!/usr/bin/env perl
use strict;
use warnings;
my @a = (0 .. 9, 'a' .. 'z');
my @case = (sub{lc shift},sub{uc shift}); 
my $x = join '', map { $case[int rand(2)]->($a[int rand @a]) } 1 .. 42;
print "$xn";

好的，现在您已经了解了函数调用。对于您的密码生成，我们快速查看CPAN并找到String::Random。它允许您根据模式生成随机字符串。

#!/usr/bin/env perl
use strict;
use warnings;
use String::Random 'random_regex';
print random_regex('[a-zA-Z]{42}'), "n";

我上次运行这个时得到了

LpvrMpylaaZTzmMbyBLiNQiwFZyKWWesVecvBWbLwu

Answer 7

您可能可以尝试以下一行代码：

perl -le "print map { ('a'..'z', 'A'..'Z', '0'..'9')[rand 62] } 1..42"

SXQtgMmzL7hsF9EZ2p9DrGg8BudNh4QWkOQn6UurPk

perl -le "print map { ('a'..'z', 'A'..'Z', '0'..'9')[rand 62] } 1..42"

Rk6TJlBRkB3tS6fhmtXUNAmHSw04HNJTWCw2bhTcSl

对于Linux，您可以将"替换为"one_answers"替换为。"。

来源-catonmat.net