<div dir="ltr"><div><div>Я тут написал небольшой текст про базовую работу с массивами в Perl</div><div>( <a href="https://ivan.bessarabov.ru/blog/perl-arrays">https://ivan.bessarabov.ru/blog/perl-arrays</a> )</div><div><br></div><div>Пока писал, нашел 8 способов как можно узнать количество элементов в массиве.</div><div><br></div><div>Несколько лет назад тут в рассылке был отличный тред с кучей разнообразных</div><div>способов как можно очистить массив. Андрей даже блиц доклад про это делал —</div><div><a href="https://www.slideshare.net/andy.sh/clean-array/1">https://www.slideshare.net/andy.sh/clean-array/1</a></div><div><br></div><div>Наверняка размер массива можно узнать еще кучей способов. Я нашел вот такие</div><div>варианты:</div><div><br></div><div> * scalar @arr;</div><div> * @arr + 0;</div><div> * @arr . '';</div><div> * $#arr + 1;</div><div> * push(@arr, 1) - 1;</div><div> * unshift(@arr, 1) - 1;</div><div> * my $i = 0; $i++ foreach @arr; return $i;</div><div> * @arr = (1) x @arr; return length join('', @arr);</div><div><br></div><div>Что еще можно придумать?</div></div></div>