Какова была конструктивная (или техническая) причина для Perl, которая не автоматически локализовала $_
со следующим синтаксисом:
while (<HANDLE>) {...}
который переписывается как:
while (defined( $_ = <HANDLE> )) {...}
Все остальные конструкции, которые неявно записываются в $_
, делают это локализованным образом (for/foreach
, map
, grep
), но с while
вы должны явно локализовать переменную:
local $_;
while (<HANDLE>) {...}
Я предполагаю, что он имеет какое-то отношение к использованию Perl в режиме "Super-AWK" с помощью командной строки, но это может быть неправильно.
Итак, если кто-нибудь знает (или еще лучше участвовал в обсуждении дизайна языка), не могли бы вы поделиться с нами рассуждениями об этом поведении? Более конкретно, почему значение $_
сохранялось за пределами цикла, считающегося важным, несмотря на ошибки, которые он может вызвать (которые я обычно вижу повсюду на SO и в другом коде Perl)?
Если это неясно из сказанного выше, причина, по которой $_
должна быть локализована с помощью while
, показана в этом примере:
sub read_handle {
while (<HANDLE>) { ... }
}
for (1 .. 10) {
print "$_: \n"; # works, prints a number from 1 .. 10
read_handle;
print "done with $_\n"; # does not work, prints the last line read from
# HANDLE or undef if the file was finished
}