На этом шаге мы рассмотрим третий случай "незаменимости" функции local().
На этом шаге рассмотрим третий случай.
В следующем примере внутри блока операторов временно изменяется значение одного элемента глобального хеш-массива %ENV, содержащего значение переменной $РАТН, входящей в состав среды интерпретатора UNIX shell.
#! perl -w
print "значение переменной среды \$РАТН:\n$ENV{PATH}\n";
{
local $ENV{PATH} = "/home/mike/bin";
print "временное значение переменной среды \$РАТН: $ENV{PATH}\n";
}
print "прежнее значение переменной среды \$РАТН:\n$ENV{PATH}\n";
Результат будет выведен в следующем виде (рисунок 1):
Рис.1. Результаты работы примера
На следующем шаге мы рассмотрим прототипы.