[Moscow.pm] Иногда вещи не то, чем кажутся

[arto]

On Thu, 5 Jun 2008, Denis Evdokimov wrote:

> Date: Thu, 5 Jun 2008 16:12:13 +0400
> From: Denis Evdokimov <evdokimov.denis на gmail.com>
> Reply-To: Moscow.pm group <moscow-pm на pm.org>
> To: Moscow.pm group <moscow-pm на pm.org>
> Subject: Re: [Moscow.pm]        Иногда вещи не то, чем кажутся
>
> >
> > join, кстати, лишний. без него все работает:
> > sub say { print @_, "\n"; }
>
> Не совсем лишний, а скорее чуток неправильный
> Вот тут http://perl6.ru/2006/09/ написано
>
> my @array = 1..5;
> say @array.reverse;
> Этот пример напечатает 5 4 3 2 1
>
> Следовательно
> sub say { print join(" ", @_)."\n" }
> а ещё лучше
> sub say
> {
>     local $\ = "\n";
      local $, = " ";

>     print join " ", @_;
      print @_;

> }
>

-- 
Солидная фирма возьмет в аренду дырокол.