Как я могу автоматически инициализировать все скалярные переменные в Perl?

Question

Perl automatically initializes variables по умолчанию undef.

Есть ли способ переопределить это поведение по умолчанию и сообщить интерпретатору Perl инициализировать переменные до zero (или какое-то другое фиксированное значение)?

Answer 1

Рекомендация в Кодексе Полного важно для языка, такие как C, потому что, когда у вас есть

int f(void) { 
    int counter; 
} 

значение counter является то, что происходит, чтобы занять эту память.

В Perl, когда вы объявляете переменную с помощью

my $counter; 

нет никаких сомнений в том, что значение $counter является undef не какой-то случайный мусор.

Таким образом, мотивация рекомендации, то есть обеспечение того, чтобы все переменные начинались с известных значений, автоматически выполняется в Perl, и нет необходимости ничего делать.

Что вы делаете с счетчиками, это увеличивать или уменьшать их. Результат:

my $counter; 
# ... 
++ $counter; 

хорошо определен на Perl. $counter будет хранить значение 1.

Наконец, я бы сказал, что в большинстве случаев счетчики не нужны в Perl, и код, в котором широко используются счетные переменные, возможно, потребуется переписать.

Answer 2

Нет. Это может привести к некоторым очень страшным и труднодостижимым ошибкам, поэтому не рекомендуется так менять поведение, как это в любом случае.

В Perl вы можете объявить переменные сразу, когда вам это нужно в первый раз, поэтому обычно нет необходимости сначала объявлять их (с инициализацией или без них), а затем использовать их позже. Кроме того, операторы, такие как ++ будет работать с неопределенными значениями одинаково хорошо как ноль, так что вам не нужно инициализировать счетчики на все:

# this is perfectly legal: 
my $counter; 
while ($some_loop) 
{ 
    $counter++; 
} 

Однако, я могу вставить дюбель для Moose, отметив, что вы можете достичь автоматическая инициализация атрибутов в ваших Moose классов:

package MyClass; 
use strict; 
use warnings; 
use Moose; 

has some_string => (
    is => 'rw', isa => 'Str', 
    default => 'initial value', 
); 

has some_number => (
    is => 'rw', isa => 'Int', 
    default => 0, 
); 
__PACKAGE__->meta->make_immutable; 
1; 

package main; 
my $object = MyClass->new; 
print "string has value: ", $object->some_string, "\n"; 
print "number has value: ", $object->some_number, "\n"; 

печатает:

строка имеет значение: начальное значение
число имеет значение: 0

Answer 3

Насколько я знаю, это невозможно (и не должно быть, его еще более опасно, чем $[).

Вы можете инициализировать переменные следующим образом сократить шаблонного:

my ($x, $y, $z) = (0) x 3; 

или переместить инициализацию функции:

sub zero {$_ = 0 for @_} 

zero my ($x, $y, $z); 

или даже:

$_ = 0 for my ($x, $y, $z); 

Answer 4

ли вы, есть конкретная причина для желания сделать это, или это просто "потому что Код Завершить te говорит, что я должен "?

Если первый, пожалуйста, поделитесь этой причиной, и мы можем обсудить правильно Персидские пути для достижения вашей реальной цели.

Если последний, пожалуйста, помните, что Код Завершить - это набор рекомендаций для программирования на C, а не на Perl. Perl не является C и имеет свой собственный набор сильных и слабых сторон, что также означает, что у него есть другой набор ... и я ненавижу использовать эту фразу ... лучшие практики. Руководящие принципы, подходящие для одного языка, не обязательно применяются к другому. «Всегда инициализировать переменные (если это возможно), когда вы их объявляете», - это правильная практика в C, но в Perl вообще не нужна.