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

[Vladimir V. Perepelitsa]

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

mons на mashinka ~ $ perl -wle '(1 x $_) !~ /^(1{2,}?){2,}$/ && print while ++ 
$_'
1
2
3
^C
mons на mashinka ~ $ perl -V
Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
  Platform:
    osname=linux, osvers=2.6.13.3-ss, archname=i686-linux-thread-multi

не падает, жрет проц.

-- 
Vladimir Perepelitsa aka Mons Anderson
<inthrax на gmail.com> / #99779956