Perl 每周挑战 280：计算星号数量
原文英文，约600词，阅读约需3分钟。
📝
内容提要
这篇文章是关于Perl Weekly Challenge的第280周任务2的一些解答。任务要求计算字符串中星号的数量，但要排除在竖线之间的星号。作者使用正则表达式和字符转换操作符来实现。文章还提到了Raku和Perl两种编程语言的实现方法。
🔎
延伸解读
正则表达式中的非贪婪匹配
文章使用非贪婪量词（如.*?）来匹配竖线之间的内容。在Perl和Raku中，.*?会尽可能少地匹配字符，确保正则整体成功。这避免了贪婪匹配可能导致的跨多个竖线对的问题，从而准确排除每对竖线之间的星号。理解非贪婪匹配对于处理类似分隔符场景至关重要。
tr///操作符的高效计数
文章指出，在Perl中，tr///转写操作符被认为是统计字符串中某字符出现次数最快的方法。它返回替换的次数，即星号的数量。在Raku中，tr///返回一个StrDistance对象，通过+号数值化后得到编辑距离，即星号数。这种方法比循环遍历更简洁高效。
Perl与Raku实现的语法差异
虽然Perl和Raku的解决方案逻辑相似，但语法略有不同。Raku使用s:g/'|'.*?'|'//进行全局替换，而Perl使用s/\|.*?\|//g。Raku的tr///返回StrDistance对象，需要+号数值化；Perl的tr///直接返回替换次数。这些差异体现了两种语言在设计哲学上的不同。
❓
Q&A
Perl Weekly Challenge第280周的任务是什么？
任务是计算字符串中星号的数量，排除竖线之间的星号。
如何在Perl中实现星号计数？
使用正则表达式去除竖线之间的部分，然后使用tr///操作符计数星号。
Raku语言如何实现星号计数？
Raku使用frugal量词和tr///操作符来实现星号计数。
能给出一些示例输入和输出吗？
示例包括：输入'p|*e*rl|w**e|*ekly|'，输出为2；输入'perl'，输出为0。
这篇文章提到的正则表达式有什么特点？
正则表达式使用了非贪婪量词，以匹配竖线之间的内容。
如何参与下周的Perl Weekly Challenge？
访问Perl Weekly Challenge网站，并在截止日期前提交答案。
🏷️
