Perl Динамический аргумент функции

Question

У меня есть одна функция, которую я не могу изменить, и в этой функции что-то вроде это делается

foreach my $param (@_) { 
    ..... 

Теперь я хочу, чтобы вызвать эту функцию с динамическими параметрами. У меня есть объект, который я получаю от

$self->{'parameter'} = from_json ($self->{'cgi'}->param('POSTDATA')); 

А теперь я хочу сделать что-то вроде этого

function(para1, $self->{'parameter'}) 

, если я делаю это вручную, работает

function(para1, 1, 1, 1) 

Как можно Я делаю это?

Answer 1

Если $self->{parameter} является ссылкой на массив, то вы можете включить массив разыменованных объектов и в большинстве случаев ^* случаях Perl сгладит список.

$self = from_json ...;     # $self->{parameter} = [1,2,3]; 
function($p1,@{$self->{parameter}}); # equiv to function($p1,1,2,3) 

^* - некоторые случаи, когда Perl не сплющивается список являются functions that have a @ prototype или Perl builtin function that expects an ARRAY, а не просто LIST