Как я могу сбросить хэш полностью без использования цикла for?

Question

Я хотел бы полностью сбросить мой %hash, чтобы он вообще не содержал ключей или значений.Я предпочитаю использовать однострочник, нежели циклнаписал простой цикл for для достижения того же:

for (keys %hash) {
    delete $hash{$_};
}

Это работает, но я бы очень хотел сделать это с помощью одной строки.Есть ли способ просто сбросить хеш, который я пропускаю?

Answer 1

Оба %hash = (); и undef %hash; будут работать, с той разницей, что последний вернет часть памяти для других целей.Первый сохранит в памяти те вещи, которые использовались ранее в хэше, при условии, что он все равно будет использован позже, когда хэш будет пополняться.

Вы можете использовать Devel::Peek, чтобы наблюдать такое поведение:*

$ perl -MDevel::Peek -we'my %foo = (0 .. 99); %foo = (); Dump \%foo; undef %foo; Dump \%foo'
SV = IV(0x23b18e8) at 0x23b18f0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x23acd28
  SV = PVHV(0x23890b0) at 0x23acd28
    REFCNT = 2
    FLAGS = (PADMY,SHAREKEYS)
    ARRAY = 0x23b5d38
    KEYS = 0
    FILL = 0
    MAX = 63
    RITER = -1
    EITER = 0x0
SV = IV(0x23b18e8) at 0x23b18f0
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x23acd28
  SV = PVHV(0x23890b0) at 0x23acd28
    REFCNT = 2
    FLAGS = (PADMY,SHAREKEYS)
    ARRAY = 0x0
    KEYS = 0
    FILL = 0
    MAX = 7
    RITER = -1
    EITER = 0x0

Поля MAX в PVHV s являются важным битом.

Answer 2

Как насчет

%hash = ();

Answer 3

Вы можете использовать undef :

undef %hash;

Answer 4

Вы можете сделать:

%hash = ();

Answer 5

Использование

%hash = ();

Answer 6

% хэш = (); должен работать

Answer 7

Поскольку ФП запросил один вкладыш, который работает с использованием строгих правил и предупреждений

delete $hash{$_} for (keys %hash)