Для целочисленных  >= 0 значений в массиве

$ perl -le 'print length join "", map 1 x $_, 1, 2, 3'
6


-- 
Alexander
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить