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

[Vladimir V. Perepelitsa]

On Thursday 05 June 2008 16:12:13 Denis Evdokimov wrote:
> Не совсем лишний, а скорее чуток неправильный
> Вот тут http://perl6.ru/2006/09/ написано
>
>  my @array = 1..5;
> say @array.reverse;
> Этот пример напечатает 5 4 3 2 1

хотя если посмотреть на 5.10, то мы получим то, что писалось изначально. т.е. 
с учетом текущего $,:
а почему так получается в 6м перле, потому что там контексты другие.

итого. 5.010 compatible say:

use IO::Handle ();
BEGIN {
  *IO::Handle::say = sub{
    shift->(print @_ ? @_ : $_, "\n");
  }
  sub say {
    print @_ ? @_ : $_, "\n";
  }
}

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