我最近发现在Perl，％_中似乎是一个未记录的变量。我不记得我是怎么偶然发现的(这是上个星期)，但是我在我的代码中打错了我使用的地图，而不是$ _-> {key}我使用$ _ {key}。当我发现错误时，我感到惊讶的是它没有产生错误，并且我确认使用严格且使用警告已到位。
所以，我做了一个小小的测试，并确实运行没有任何警告或错误：
$ perl use strict; use warnings; print keys %_; $
所以，我可以想象的是，％_被定义在某个地方。我在perlvar找不到，那是什么交易？它在上面的脚本中没有任何内容。
解决方法
标点变量不受严格限制。这就是为什么你不需要像我们的$ _之前使用$ _。从perlvar，
Perl identifiers that begin with digits,control characters,or punctuation characters […] are also exempt from
strict 'vars'errors.
％_不是无证件的。从perlvar，
Perl variable names may also be a sequence of digits or a single punctuation or control character (with the literal control character form deprecated). These names are all reserved for special uses by Perl
您可以有一个名为_的哈希，因为_是变量的有效名称。 (我相信你熟悉$ _和@_。)
没有Perl内置当前设置它或读取％_ implicitly，但标点符号变量如％_保留。
请注意，标点符号变量也是特殊的，因为它们是“超级全局变量”。这意味着不合格的％_引用根包中的％_，而不是当前包中的％_。
$ perl -E' %::x = ( "%::x" => 1 ); %::_ = ( "%::_" => 1 ); %Foo::x = ( "%Foo::x" => 1 ); %Foo::_ = ( "%Foo::_" => 1 ); package Foo; say "%x = ",keys(%x); say "%_ = ",keys(%_); say "%::x = ",keys(%::x); say "%::_ = ",keys(%::_); say "%Foo::x = ",keys(%Foo::x); say "%Foo::_ = ",keys(%Foo::_); ' %x = %Foo::x %_ = %::_ <-- surprise! %::x = %::x %::_ = %::_ %Foo::x = %Foo::x %Foo::_ = %Foo::_
这意味着忘记使用本地％_(如你所做)可以产生非常深远的影响。