Привет,
Вот это у вас работает ?
Интересуют перлы с тредами/без, 588, 589.
perl -wle '(1 x $_) !~ /^(1{2,}?){2,}$/ && print while ++ $_'
Ps у меня 589 с тредами на каренте свалился.
--
Ivan B. Serezhkin
Spamooborona, Yandex. http://so.yandex.ru/