<div dir="ltr">int( @arr)<div>короче чем первое</div></div><div class="gmail_extra"><br><div class="gmail_quote">25 февраля 2017 г., 18:00 пользователь Alessandro Gorohovski via Moscow-pm <span dir="ltr"><<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a>></span> написал:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Здравствуйте Иван,<div><br></div><div>Как разновидность, могу предложить на вскидку:</div><div><br></div><div>~~@a;</div><div><br></div><div>а вместо последнего:</div><span class=""><div><div> * @arr = (1) x @arr; return length join('', @arr);</div></div></span><div>короче</div><div>say length( (1) x @a );<br></div><div><br></div><div><br></div><div class="gmail_extra"><div class="gmail_quote">25 февраля 2017 г., 17:26 пользователь Иван Бессарабов via Moscow-pm <span dir="ltr"><<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a>></span> написал:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><div class="h5"><div dir="ltr"><div><div>Я тут написал небольшой текст про базовую работу с массивами в Perl</div><div>( <a href="https://ivan.bessarabov.ru/blog/perl-arrays" target="_blank">https://ivan.bessarabov.ru/blo<wbr>g/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" target="_blank">https://www.slideshare.net/and<wbr>y.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>
<br></div></div><span class="HOEnZb"><font color="#888888">--<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>
<br></font></span></blockquote></div><br></div></div>
<br>--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" rel="noreferrer" target="_blank">http://moscow.pm.org</a><br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature">С уважением,<br>Мышкин Алексей.</div>
</div>