sub foo {
my @arr = (1,2,3,4,5,6);
return wantarray ? @arr : $arr[rand scalar @arr];
}
# нужно в коде вызвать функцию bar, и передать туда ссылку на массив, полученный в foo.
# как это бы сделать получше
# я имею ввиду можно было бы так:
my @somearr = foo();
bar(\@somearr);
# а можно ли как нибудь обойтись без этой лишней переменной, т.е. напрямую ?
# з.ы. поддержка скалярного контекста тоже необходима, изменять последнюю строчку функции foo не предлагать :D