<div>под win 7 опять пришлось powershsell запускать</div><div> </div><div><div>PS C:\Rakudo\bin> .\perl6.exe -e 'say [+] 1,2,3'</div><div>6</div></div><div> </div><div>классно</div><div> </div><div>правда с русским проблема:</div><div><div>C:\Rakudo\script>..\bin\perl6.exe -v</div><div>This is Rakudo Perl 6, version 2010.07-47-g9fd5eaa built on parrot 2.6.0</div><div>Copyright 2008-2010, The Perl Foundation</div></div><div> </div><div><div>===SORRY!===</div><div>Malformed UTF-8 string</div><div><div>#use utf8;</div><div>#binmode STDOUT, ":utf8";</div></div></div><div>не помогают</div><div> </div><div>зы ну и поигрался с perl 6 <a href="http://perl6.su/nota_XLIX.html">http://perl6.su/nota_XLIX.html</a></div><div>классная штука..</div><div> </div><div><div> </div><div>my $abc='nota XXV. ';</div><div>if ($abc ~~ m/(\d+)/) {</div><div><span style="white-space: pre;"> </span>$0.say;</div><div><span style="white-space: pre;"> </span>}</div><div>else {"Hic numeri non sunt".say}</div><div> </div><div>pi.say;</div><div> </div><div>1000.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.exp.log10.sin.cos.say;</div><div> </div><div>"Unus plus duo {</div><div><span style="white-space: pre;"> </span>1+2;</div><div><span style="white-space: pre;"> </span>if 3 {'tres'}</div><div><span style="white-space: pre;"> </span>} est.".say;</div><div> </div><div> </div><div>my ($m,$n)=(1000,2000);</div><div>say [+] $m .. $n;</div><div> </div><div>($m,$n)=(100,200);</div><div>say [*] $m .. $n;</div><div><span style="white-space: pre;"> </span></div><div> </div><div>my @list=<abc def ghi>;</div><div>@list>>.&double>>.say;</div><div>sub double($in) { </div><div><span style="white-space: pre;"> </span>return "$in $in ";</div><div><span style="white-space: pre;"> </span>}</div><div> </div><div> </div><div>'-----'.say;</div><div>my @a=1,2,3;</div><div>my @b=1,2,3;</div><div>say @a === @b;</div><div>say @a === @a;</div><div>say @a === (1,2,3);</div><div>my $c;</div><div>$c=\@a;</div><div>say $c === \@a;</div><div> </div><div> </div><div>my $res=routine(sub ($a,$b) {$a+$b});</div><div>say "$res (guess what was the action)";</div><div>$res=routine(sub ($a,$b) {$a-$b});</div><div>say "$res (guess what was the action)";</div><div>sub routine(&do) {</div><div> </div><div># this big угадай</div><div># and complex algoritom</div><div># in one place which</div><div># Two variables</div><div> </div><div><span style="white-space: pre;"> </span>my $rand1=1000.rand.floor;</div><div><span style="white-space: pre;"> </span>my $rand2=1000.rand.floor;</div><div><span style="white-space: pre;"> </span>print "$rand1 ? $rand2 = ";</div><div><span style="white-space: pre;"> </span>do($rand1,$rand2);</div><div># can be handled</div><div># different ways</div><div><span style="white-space: pre;"> </span>}</div></div><div> </div><div> </div><div> </div><div> </div><div> </div><div>07.06.2011, 22:44, "Andrew Shitov" <<a href="mailto:andy@shitov.ru">andy@shitov.ru</a><a href="mailto:>">></a>;:</div><blockquote><div>$ perl6 -e'say [+] 1, 2, 3'</div><div>6</div><div> </div><div>:-)</div><div> </div><br /><div class="gmail_quote">2011/6/7 Aleksander Gorohovski <span dir="ltr"><<a href="mailto:angel@feht.dgtu.donetsk.ua">angel@feht.dgtu.donetsk.ua</a>></span><br /> <blockquote class="gmail_quote" style="margin: 0 0 0 .8ex; border-left: 1px #ccc solid; padding-left: 1ex;"><div class="im">On Tue, 07 Jun 2011 21:36:40 +0300, Alexander Onokhov wrote:<br /> <br /> <blockquote class="gmail_quote" style="margin: 0 0 0 .8ex; border-left: 1px #ccc solid; padding-left: 1ex;">$ perl -MList::Util=sum -le 'print sum 1, 2, 3'<br /> 6<br /></blockquote></div> Спасибо, конечно,<br /> но а без модулей и подпрограмм обойтись можно<div><div> </div><div class="h5"><br /> ?<br /> <br /> <br /> <blockquote class="gmail_quote" style="margin: 0 0 0 .8ex; border-left: 1px #ccc solid; padding-left: 1ex;">2011/6/7 Aleksander Gorohovski <<a href="mailto:angel@feht.dgtu.donetsk.ua" target="_blank">angel@feht.dgtu.donetsk.ua</a>><br /> <br /> <blockquote class="gmail_quote" style="margin: 0 0 0 .8ex; border-left: 1px #ccc solid; padding-left: 1ex;">Уважаемое сообщество,<br /> Доброго времени суток!<br /> <br /> Подскажите можно ли более изящно, без промежуточной переменной $sum,<br /> как это обычно делаю:<br /> <br /> my $sum;<br /> $sum += $_ for @m;<br /> <br /> подсчитать сумму элементов массива @m<br /> ?<br /> <br /> Спасибо.<br /> --<br /> Moscow.pm mailing list<br /> <a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br /> <br /></blockquote> <br /> <br /></blockquote> -- <br /> Moscow.pm mailing list<br /> <a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a></div></div></blockquote></div><br /><br /><br />-- <br />Andrew Shitov<br />______________________________________________________________________<br /><a href="mailto:andy@shitov.ru">andy@shitov.ru</a> | <a href="http://shitov.ru">http://shitov.ru</a><br /> <span class="wmi-sign">-- <br />Moscow.pm mailing list<br /><a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org">http://moscow.pm.org</a><br /></span></blockquote><div> </div><div> </div><div>--<br />Николай Мишин</div>