Perl 每周挑战 255：奇异字符
内容提要
本文是关于Perl Weekly Challenge第255周任务1的答案，要求找出字符串中多出来的字符。在Raku中，可以使用一行代码解决，而在Perl中需要使用哈希表。下周的Perl Weekly Challenge即将开始。
延伸解读
Raku 与 Perl 的解法差异
文章展示了同一任务在 Raku 和 Perl 中的不同实现。Raku 利用 Bag 和集合差集操作符 (-)，只需一行代码即可找出额外字符。而 Perl 没有内置的 Bag 类型和集合差集操作符，因此需要用哈希表统计字符频率，再比较两个哈希表来找出差异。这种对比体现了两种语言在集合操作上的设计哲学不同。
Perl 哈希解法的关键步骤
在 Perl 解法中，首先用 map 和 split 将字符串拆分为字符，并构建哈希表记录每个字符的出现次数。然后通过 grep 遍历第二个字符串的键，检查该字符是否在第一个字符串中未定义，或者出现次数多于第一个字符串。满足条件的字符即为额外字符。这种方法虽然比 Raku 繁琐，但逻辑清晰，易于理解。
任务的实际应用与注意点
该任务要求找出字符串 $t 中比 $s 多出的一个字符，其中 $t 由 $s 的字符打乱并添加一个额外字符生成。文章提供的示例包括 "Perl" 和 "Preel" 输出 "e"，"Weekly" 和 "Weeakly" 输出 "a"，"Box" 和 "Boxy" 输出 "y"。注意，该解法假设额外字符只出现一次，且 $t 中其他字符与 $s 完全一致。
Q&A
Perl Weekly Challenge 第255周任务1的要求是什么？
给定两个字符串$s和$t，$t由$s的字符打乱后额外添加一个字符生成，要求找出这个额外的字符。
在Raku中如何解决找出额外字符的问题？
将两个字符串分别转换为Bag，然后使用集合差操作符(-)找出$t中多出的字符，可以用一行代码实现。
Perl中如何实现找出额外字符？
使用哈希表统计每个字符的出现频率，然后遍历%t的键，找出在%s中未定义或频率更高的字符。
为什么Perl的解决方案比Raku更复杂？
因为Perl没有Bag和集合差操作符，需要用哈希表手动实现频率统计和差异比较。
能否给出一个任务示例？
例如$s = "Perl", $t = "Preel"，输出应为"e"；$s = "Weekly", $t = "Weeakly"，输出"a"；$s = "Box", $t = "Boxy"，输出"y"。
下一个Perl Weekly Challenge的截止日期是什么时候？
下一个挑战的截止日期是2024年2月18日23:59 BST。
