Удаление элементов массива в Perl

Question

Я хочу удалить весь массив. В настоящее время я делаю @array=(); Удаляет ли эти элементы и очищает память, сбор мусора? Если мне не нужно использовать Splice ?.

Answer 1

• Очень странно, что вам нужно это сделать. Правильное использование my означает, что очень редко требуется очистить массив.

• @array =(); освобождает элементы и при необходимости вызывает любые деструкторы. Другими словами, элементы будут собирать мусор (до завершения операции), если они не используются в другом месте, по желанию.

• @array =(); не освобождает базовый буфер массива. Это хорошая вещь. undef @array; заставит память освободиться, что приведет к многочисленным выделениям, когда вы начнете вкладывать больше элементов в массив.

---

Так,

• Если вы хотите освободить массив, потому что вы никогда не будете использовать его снова, ограничить сферу его применения, где вам это нужно, помещая my @array; в правильном месте ,

  { 
      my @array; 
      ... 
  } # Elements of @array garbage collected here. 
  

• Если вы хотите очистить массив вы будете использовать повторно использовать @array =();.

  my @array; 
  while (...) { 
      if (...) { 
       push @array, ...; 
      } else { 
       ... use @array ... 
       @array =(); # Elements of @array garbage collected here. 
      } 
  } 
  

• Не используйте undef @array;.

---

Вы можете использовать splice, если это удобно.

say for @array; 
@array =(); 

может быть написана как

say for splice(@array); 

Но это не влияет на сбор мусора.

Answer 2

http://perldoc.perl.org/functions/undef.html

undef @array; 

Если делать то, что вам нужно.

Answer 3

@array =(); 

прекрасно, вы можете также использовать

undef @array; 

Обратите внимание, что это не так :

@array = undef; 

это будет иметь значение undef

Answer 4

Если ваша цель - освободить память обратно в ОС, вам, вероятно, не повезло.Если ваша цель состоит в том, чтобы сделать память доступной для вашей программы perl, чтобы использовать ее снова, тогда все ответы будут хорошими.

Для получения более подробной информации некоторых проверьте следующие ссылки
http://www.perlmonks.org/?node_id=243025
In Perl, how can I release memory to the operating system?