Удаление значения переменной

Функция delete () позволяет удалить элемент из хеша:

#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n";
# Заполняем хеш значениями
%var = ("январь* => 1, "февраль1 => 2);
if (exists($var{1 январь1})) {
print "Переменная \$var{"январь *} определена";
}
else {
print "Переменная \$var{1 январь1} не определена\п";
}
print "<BR>";
# Удаляем элемент хеша delete($var{"январь"});
if (exists($var{"январь"})) {
print "Переменная \$var{1 январь1} определена";
}
else {
print "Переменная \$var{"январь"} не определена\п";
}
Вывод:
Переменная $var{"январь"} определена Переменная $var{"январь"} не определена
Обратите внимание на вывод знака $ в окно Web-браузера. Если перед знаком $ не указать защитный слэш, то в результате будет выведено значение эле¬мента хеша с ключом январь:
#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n";
# Заполняем хеш значениями
%var = ("январь1 => 1, "февраль" => 2);
print "Переменная \$var{"январь"} определена<ВК>";
print "Переменная $var{"январь"} определена";
Вывод:
Переменная $var{1 январь 1} определена Переменная 1 определена



Страница: 1 | 2