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

[Denis Evdokimov]

>
> 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";
    print join " ", @_;
}
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: http://mail.pm.org/pipermail/moscow-pm/attachments/20080605/40dd765d/attachment.html