🎄 1/25. 在 Perl 6 中生成随机密码

欢迎来到全新的 Perl6.Online Advent Calendar 的第1天!今年,它的主题是 Perl 6 One-Liners(来自 perl6.onliners 的双关语)。因此,欢迎参加今年的 Perl 6 One-Liner Advent Calendar。整个 perl6.online 博客最初计划每天一篇,因此这是一个很好的机会,可以保持 25天每天一篇。

不要忘记关注其他人编写的其他与 Perl 相关的日历:

在接下来的几天里,我将发表简短的文章,要么解释 Perl 6 Calendar 2019 的代码,要么解决 Project Euler 启发的一些问题,Perl 6 可以展示它的极致美感(如果你不想看到我的答案)在你之前,我邀请你先自己解决这些任务,然后再阅读这些文章。但是今天,让我们从其他东西开始,在 Perl 6 中生成一个随机密码。

这是完整的代码:

1
('0'..'z').pick(15).join.say

运行几次:

1
2
3
4
5
6
7
Z4x72B8wkWHo0QD
J;V?=CE84jIS^r9
2;m6>kdHRS04XEL
O6wK=umZ]DqyHT5
3SP\tNkX5Zh@1C4
PX6QC?KdWYyzNOc
bq1EfBZNdK9vHxz

每次运行时,我们的这行代码都会生成不同的字符串。如果您尚未安装 Perl 6,请自行尝试创建密码或使用上述密码之一。

前段时间,我们研究了pick方法的内部结构。它在Any类中定义,它实际上是将工作代理给List类的方法:

1
2
3
proto method pick(|) is nodal {*}
multi method pick() { self.list.pick }
multi method pick($n) { self.list.pick($n) }

join 方法也在 List 类中定义。我们现在不要检查它的主体,因为它很大,但让我们来看看签名:

1
method join(List:D: Str(Cool) $separator = '') is nodal

可以清楚地看到,当调用不带参数的方法时,默认分隔符是一个空字符串,这正是我们对密码所需要的。(在文档中了解有is nodal trait的更多信息;据说在特殊代码中不应该广泛使用该特征。)

您也可以问一个问题:我可以期望密码中有哪些字符?你问的好极了! Perl 6 是面向 Unicode 的语言,范围 '0'..'z' 似乎包含具有不同 Unicode 属性的字符(即,至少是数字和字母)。要查看其中的内容,只需从我们今天的代码中删除 pick 方法:

1
('0'..'z').join.say

此行在两个给定字符之间打印 ASCII 表的子集:

1
2
3
0123456789:;<=>?@
ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`
abcdefghijklmnopqrstuvwxyz

这些是可能出现在密码中的字符。 pick 方法确保不重复字符。

这就是今天的全部,明天再看另一行 Perl 6 代码。