http://flow.salpagarov.com/tags/Perl/Recent content in Perl on Atrax TechHugoruWed, 08 Apr 2026 18:06:44 +0300http://flow.salpagarov.com/posts/2006/Perl/Wed, 29 Nov 2006 00:00:00 +0000http://flow.salpagarov.com/posts/2006/Perl/<pre tabindex="0"><code>perl -wle &#39;(1 x $_) !~ /^(11+)\1+$/ &amp;&amp; print while ++ $_&#39;</code></pre><p>Программа для вывода простых чисел. Вот это я понимаю, &ldquo;магия слова&rdquo;.</p>