<div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr">Всё верно.</div><div dir="ltr"><br></div><div>По шагам:</div><div><br></div><div>delete $a{11}{21,24}{31}</div><div><br></div><div>1. Сначала ищется элемент $a{11}. Он есть, и он ссылка на хэш.</div><div>2. Дальше в это подхэше ищется элемент $a{11}{21,24}. Список (21,24) преобразуется в строку "21$;24". Такого элемента не находится, поэтому из-за autovivification, включённого по умолчанию, этот элемент создаётся и его значение устанавливается в undef.</div><div>3. Далее ищется элемент $a{11}{21,24}{31}. Его нет, поэтому значением $a{11}{21,24} становится ссылка на хэш, в котором снова из-за autovivification создаётся элемент с ключом 31 и значением undef.</div><div>4. И только после этого delete удаляет только что созданные элемент и возвращает его значение undef.<br></div><div><br></div><div>Элемент, созданный на шаге 2, никуда не девается, вот он там и сидит, память занимает, программистов пугает.</div><div><br></div><div>:)</div></div></div></div></div></div></div></div></div><br><div class="gmail_quote"><div dir="ltr">чт, 29 нояб. 2018 г. в 10:53, Alessandro Gorohovski <<a href="mailto:an.gorohovski@gmail.com">an.gorohovski@gmail.com</a>>:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div dir="ltr"><br><div class="gmail_quote"><div dir="ltr">чт, 29 нояб. 2018 г. в 12:40, Andrei <<a href="mailto:andrei.protasovitski@gmail.com" target="_blank">andrei.protasovitski@gmail.com</a>>:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div dir="ltr">Давным давно, когда в Perl'е ещё не было ссылок, синтаксис $hash{ 1,2,3,4 } использовался для создания многомерных массиивов. По сути, 1,2,3,4 заменяется на строку "1$;2$;3$;4".</div></div></blockquote><div><br></div><div>Да, это всё так и есть, но проблема не в этом.</div><div>Наверное я плохо сформулировал проблему в самом начале.</div><div><br></div><div>Проблема в том, что в контексте функции <b>delete</b> происходит <b>создание</b> <b>нового</b> элемента,</div><div>а не удаление или, как минимум, игнорирование ошибочного/не существующего ключа. </div><div>Более того это происходит неявно и без предупреждения.</div><div>Понимаете.</div><div><br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div dir="ltr"><div></div><div>perldoc perlvar:</div><div><br></div><div><div>$SUBSCRIPT_SEPARATOR</div><div> $SUBSEP</div><div> $; The subscript separator for multidimensional array emulation. If</div><div> you refer to a hash element as</div><div><br></div><div> $foo{$x,$y,$z}</div><div><br></div><div> it really means</div><div><br></div><div> $foo{join($;, $x, $y, $z)}</div><div><br></div><div> But don't put</div><div><br></div><div> @foo{$x,$y,$z} # a slice--note the @</div><div><br></div><div> which means</div><div><br></div><div> ($foo{$x},$foo{$y},$foo{$z})</div><div><br></div><div> Default is "\034", the same as SUBSEP in awk. If your keys</div><div> contain binary data there might not be any safe value for $;.</div><div><br></div><div> Consider using "real" multidimensional arrays as described in</div><div> perllol.</div><div><br></div><div> Mnemonic: comma (the syntactic subscript separator) is a</div><div> semi-semicolon.</div></div><div><br></div></div></div><br><div class="gmail_quote"><div dir="ltr">ср, 28 нояб. 2018 г. в 20:05, Alessandro Gorohovski via Moscow-pm <<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a>>:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr">Приветствую Уважаемое Perl-сообщество,<div><br></div><div>Возможно это покажется тривиальным/хорошо известным поведением</div><div>функции delete применительно к хешам, но оставлю на всякий случай.</div><div><br></div><div>Итак имеется хеш %a:<br>print Dumper \%a;</div><div><div>$VAR1 = {</div><div> '11' => {</div><div> '24' => {</div><div> '31' => 41</div><div> },</div><div> '23' => {</div><div> '33' => 43</div><div> },</div><div> '22' => {</div><div> '32' => 42</div><div> },</div><div> '21' => {</div><div> '31' => 41</div><div> }</div><div> }</div><div> };</div>из которого надо удалить, к примеру несколько внутренних элементов,</div><div>например: $a{11}{21}{31} и $a{11}{24}{31}</div><div>Выполняем :</div><div> delete $a{11}{21,24}{31}</div><div><br></div><div>но удаления не происходит :(</div><div>а добавляется новый внутренний загадасный элемент:</div><div><div><br></div><div>print Dumper \%a;</div><div>$VAR1 = {</div><div> '11' => {</div><div> '23' => {</div><div> '33' => 43</div><div> },</div><div> '22' => {</div><div> '32' => 42</div><div> },</div><div> '21' => {</div><div> '31' => 41</div><div> },</div><div> '24' => {</div><div> '31' => 41</div><div> },</div><div> '21 24' => {}</div><div> }</div><div> };</div></div><div><br></div><div>Или например так:<br>delete $a{11}{keys %{$a{11} } }{31}<br></div><div><br></div><div>Опять добавляется новый элемент.</div><div><br></div><div><div>print Dumper \%a;</div><div>$VAR1 = {</div><div> '11' => {</div><div> '5' => {},</div><div> '21' => {</div><div> '31' => 41</div><div> },</div><div> '23' => {</div><div> '33' => 43</div><div> },</div><div> '22' => {</div><div> '32' => 42</div><div> },</div><div> '21 24' => {},</div><div> '24' => {</div><div> '31' => 41</div><div> }</div><div> }</div><div> };</div></div><div><br></div><div>Как вы думаете в чём причина такого поведения delete</div><div>?</div><div><br></div><div>С уважением,</div><div>Александр.</div><div><br></div></div></div></div></div></div></div></div></div>
-- <br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" rel="noreferrer" target="_blank">http://moscow.pm.org</a><br>
</blockquote></div><br clear="all"><div><br></div>-- <br><div dir="ltr" class="m_-1898372455959584127gmail-m_7893443803554233440gmail_signature">Andrei Protasovitski<br>< andrei[dot]protasovitski[at]gmail[dot]com ><br>Diemen, Netherlands</div>
</blockquote></div></div></div>
</blockquote></div><br clear="all"><div><br></div>-- <br><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature">Andrei Protasovitski<br>< andrei[dot]protasovitski[at]gmail[dot]com ><br>Diemen, Netherlands</div>