"$\=$/;" 是什么意思在perl中是什么意思？

Question

我遇到了一个计算字符串中元音数量的 perl 程序。但我无法推断出它是如何工作的。谁能逐行解码这个程序？

$\=$/;map{
    $_=<>;print 0+s/[aeiou]//gi
}1..<>

Answer 1

$\=$/; 在 perl 中是什么意思？

将$\ 设置为$/ 的值。

$/ 定义以readline (<>) 结尾的行。默认是换行符 (U+000A)。

$\ 附加到每个print 的输出中。默认为空字符串。

因此，假设 $/ 没有更改，它将 $\ 设置为换行符，这使得 print 的行为类似于 say。

谁能逐行解码这个程序？

1. 在全球范围内让print 表现得像say。
2. 从ARGV读取一行。
3. 对于等于读取次数的次数，
   1. 从ARGV读取一行。
   2. 使用s/[aeiou]//gi 计算元音的个数。
   3. 打印结果。

在标量上下文中，s///g 返回匹配/替换的数量。 0+ 强制标量上下文。

---

顺便说一句，tr/aeiouAEIOU// 会比0+s/[aeiou]//gi 快，而且不会再快了。它也是非破坏性的。