Для целочисленных >= 0 значений в массиве
$ perl -le 'print length join "", map 1 x $_, 1, 2, 3' 6 -- Alexander
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
Для целочисленных >= 0 значений в массиве
$ perl -le 'print length join "", map 1 x $_, 1, 2, 3' 6 -- Alexander
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org