我正在查看 perl 代码，我看到了这个：
sub html_filter {
my $text = shift;
for ($text) {
s/&/&/g;
s/</</g;
s/>/>/g;
s/"/"/g;
}
return $text;
}
在这种情况下，for 循环会做什么？为什么要这样做？
【问题讨论】：
它只是用来将 $text 别名为默认变量 $_。这样做是因为他们懒得使用显式变量，或者不想浪费宝贵的周期来创建新的标量。
【讨论】：
它清理 &、 和引号字符，并用适当的 HTML 实体字符替换它们。
【讨论】：
没有显式循环变量，for 循环使用称为$_ 的特殊变量。循环内的替换语句也使用特殊的$_ 变量，因为没有指定其他变量，所以这只是缩短源代码的一个技巧。我可能会把这个函数写成：
sub html_filter {
my $text = shift;
$text =~ s/&/&/g;
$text =~ s/</</g;
$text =~ s/>/>/g;
$text =~ s/"/"/g;
return $text;
}
这不会对性能产生影响，并且 Perl 以外的人也可以阅读。
【讨论】：
for 循环将列表中每个循环的元素别名为$_。在这种情况下，只有一个元素，$text。
在正文中，这允许人们编写
s/&/&/g;
等等。而不是必须写
$text =~ s/&/&/g;
反复。另见perldoc perlsyn。
【讨论】：
它遍历您的文本并用 & 代替 & 符号，用 < 代替
【讨论】：
原来的代码可以通过使用wantarray来测试想要的上下文更加灵活：
sub html_filter {
my @text = @_;
for (@text) {
s/&/&/g;
s/</</g;
s/>/>/g;
s/"/"/g;
}
return wantarray ? @text: "@text"; }
这样你可以在列表上下文或标量上下文中调用它并返回正确的结果，例如：
my @stuff = html_filter('"','>');
print "$_\n" for @stuff;
my $stuff = html_filter('&');
print $stuff;
【讨论】：
正如 Hewgill 先生所指出的，代码示例隐含地本地化和别名为神奇的隐含变量 $_。
他以样板代码为代价提供了一个更易读的替代品。
没有理由为了简洁而牺牲可读性。只需用显式版本替换隐式本地化和赋值：
sub html_filter {
local $_ = shift;
s/&/&/g;
s/</</g;
s/>/>/g;
s/"/"/g;
return $_;
}
如果我不太了解 Perl 并遇到了这段代码，我会知道我需要查看 $_ 和 local 的文档——作为 perlvar 的奖励，那里几个examples of localizing $_。
对于经常使用 Perl 的人来说，上面的内容应该很容易理解。
因此，这里确实没有理由为了简洁而牺牲可读性。
【讨论】：