проход массива и скаляр к подпрограмме Perl

Question

Можно создать дубликат: How do pass one array and one string as arguments to a function?

У меня есть функция, или подпрограмму, которая принимает в качестве первого параметра в виде массива, а второй параметр, как скаляр. Например,

sub calc { 
    my @array = $_[0]; 
    my $scalar = $_[1]; 
    print @array, $scalar; 
} 

Проблема заключается в том, что функция делает массив равен первому значению массива, переданного в, и скаляр быть вторым значением массива, переданного в. Когда я хочу, чтобы первый массив, чтобы быть всем массивом, мне не нужно делать глубокую копию массива. Например,

my @array = ('51', 'M'); 
my $scalar = 21; 

и

calc(@array, $scalar) 

напечатает 51 M, когда я хочу 51 M 21.

Answer 1

Вы должны передать его в качестве справки:

calc(\@array, $scalar)

А затем получить доступ к нему, как: my @array = @{$_[0]};

Answer 2

Список аргументов в подпрограмме Perl представляет собой просто плоский массив. Если вы хотите передать отдельный массив, вы должны передать его как ссылку на массив.

Answer 3

Вы можете передать ссылку на массив вашей функции:

calc(\@array, $scalar); 

Когда вам нужно получить доступ к элементам @array в своей подпрограмме, вы можете сделать это следующим образом:

my $array = $_[0]; 

# access first element of array 
print $array->[0]; 

Редактировать: Поскольку это ссылка на исходный массив, любые изменения, сделанные в подпрограмме, будут отражаться в исходном массиве.

Answer 4

Пройдите свой массив в подпрограмму известково как исй массив:

calc(\@array, $scalar); 

Затем в известково подпрограмме, то инициализировать входные параметры, как это:

sub calc { 
    my($array_ref, $scalar) = @_; 

    foreach my $item (@$array_ref) { 
    # process each item in the array ref 
    } 
} 

Answer 5

Либо использовать ссылку на массив в качестве первого аргумента или изменить аргументы таким образом, чтобы скаляр был первым, и массив появился после этого:

sub reversed_args 
{ 
    my($scalar, @array) = @_; 
    # ... 
    print @array, $scalar, "\n"; 
} 

my @array = ('51', 'M'); 
my $scalar = 21; 

reversed_args($scalar, @array); 

Не пытайтесь Perlprototypes (две статьи, одна на стеке   Переполнение, одна на PerlMonks).