Для целочисленных >= 0 значений в массиве $ perl -le 'print length join "", map 1 x $_, 1, 2, 3' 6 -- Alexander ----------- следущая часть ----------- Вложение в формате HTML было извлечено… URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20110607/3f76faab/attachment.html>