[Moscow.pm] А у вас работает ?

[Alexey Shrub]

ashrub на mashinka:~$ perl -wle '(1 x $_) !~ /^(1{2,}?){2,}$/ && print 
while ++ $_'
1
2
3

ashrub на mashinka:~$ perl -V
Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
   Platform:
     osname=linux, osvers=2.6.18-6-686, archname=i486-linux-gnu-thread-multi


[ashrub на mashinka] ~ $ perl -wle '(1 x $_) !~ /^(1{2,}?){2,}$/ && print 
while ++ $_'
1
2
3
^C
[ashrub на mashinka] ~ $ perl -V
Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
   Platform:
     osname=freebsd, osvers=6.1-release, archname=i386-freebsd-64int

Проц сжирает, но падения не дождался, скучно жадать, проц занят и ничего 
не выводит

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

-- 
Шруб Алексей
Технический руководитель проектов
icq: 345894734
http://www.agava.ru/