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

Удалить значение переменной и сделать ее неопределенной можно с по¬мощью функции undef ()
#!/usr/bin/perl -w
# Вьшодим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n";
$var = "Значение переменной"; if (defined($var)) {
print "Переменная определена";-
}
else {
print "Переменная не определена\п";
}
print "<ВЮ>После функции undef<BR>\n"; undef $var; if (defined($var)) {
print "Переменная определена";
}
else {
print. "Переменная не определена\п";
}
Вывод:
Переменная определена После функции undef Переменная не определена
Это необходимо, если переменная использовалась при обработке данных большого объема и больше не нужна. Применение функции undef о позволит освободить память компьютера.


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