Ответ.

История вопроса:

В Perl с самого начала активно использовались как глобальные, так и локальные переменные. Позже появились лексические переменные с помощью ключевого слова my. Это дало разработчикам удобные инструменты для контроля области видимости переменных и предотвращения конфликтов имён.

Проблема:

Ошибки часто возникают из-за путаницы между глобальными (package variables) и лексическими переменными, неправильного использования local и my, а также подмены глобальных значений на время выполнения кода. В крупных проектах невнимательное управление областями видимости может привести к трудноуловимым ошибкам.

Решение:

Используйте my для объявления переменных с лексической областью видимости (scoped внутри блока, в котором объявлены), а глобальные переменные — только при необходимости. Для временной замены значения глобальной переменной используется local, который сохраняет первоначальное значение до окончания блока. Для переменных-пакетов — our. Корректное понимание этих различий позволяет избегать побочных эффектов.

Пример кода:

our $global = 10;
sub demo {
    my $lexical = 20;
    local $global = 99; # временное изменение global
    print "Внутри demo: $global, $lexical
";
}
demo();
print "Снаружи demo: $global
";

Ключевые особенности:

my создает переменные видимые только внутри текущего блока
local временно изменяет глобальные переменные
our объявляет переменные-пакеты для использования за пределами текущего файла

Вопросы с подвохом.

Может ли переменная, объявленная через my, быть доступна вне текущего блока?

Нет. Лексическая переменная my видна только в рамках блока, где создана; за его пределами она не существует.

Какая разница между local и our?

local временно меняет значение глобальной переменной на время блока, а our используется для объявления переменной, видимой во всём пакете, и не создаёт копии значения.

Пример кода:

our $var = 1; # глобальная переменная пакета
sub test {
    local $var = 3; # временно подменяет $var на 3
    print $var;
}

Можно ли использовать my внутри eval, чтобы переменная стала видна вне eval?

Нет. Область видимости переменных, объявленных через my внутри eval, ограничена только этим eval-блоком.

Типовые ошибки и анти-паттерны

Объявление переменных с одинаковыми именами в разных областях видимости
Использование глобальных переменных без необходимости
Путаница между my и local, недопонимание действия этих ключевых слов

Пример из жизни

** Негативный кейс

В крупном Perl-проекте повсюду использовали глобальные переменные без явного указания области видимости (без my и our). Однажды новый разработчик по ошибке переопределил одну из таких переменных в модуле, что привело к непредсказуемым результатам на production.

Плюсы:

Переменные доступны везде

Минусы:

Трудно отследить причину ошибок
Сложная поддержка кода
Возможны неожиданные побочные эффекты

** Позитивный кейс

В новом проекте все переменные объявлялись через my в пределах функций и блоков, а глобальные — через our только по необходимости, с чёткой документацией.