Как вернуть список в качестве ссылки на массив в Perl?

Question

Эй. В Python я могу это сделать:

def fnuh(): 
    a = "foo" 
    b = "bar" 
    return a,b 

Могу ли я вернуть список в такой же элегантный способ в Perl, особенно когда тип возврата подпрограммы должна быть ссылка на массив?

Я знаю, что могу сделать

sub fnuh { 
    my $a = "foo"; 
    my $b = "bar"; 
    my $return = []; 
    push (@{$return}, $a); 
    push (@{$return}, $b); 
    return $return; 
} 

Но я держу пари, что есть лучший способ сделать это в Perl. Ты знаешь это?

Answer 1

Несомненно, просто пощечины \ перед списком, чтобы вернуть ссылку.

Или создайте новый массив с [ list elements ].

В вашем примере,

sub f1 { 
    my $a = "foo"; 
    my $b = "bar"; 
    return [ $a, $b ]; 
} 

sub f2 { 
    my $a = "foo"; 
    my $b = "bar"; 
    push @return, $a, $b; 
    return \@return; 
} 

Пожалуйста, см perldoc perlreftut и perldoc perlref для больше о ссылках. Существует также кулинарная книга данных по perldoc perldsc.

Вы также можете прочитать этот вопрос в perlfaq (спасибо Брайно): "What's the difference between a list and an array?"

Answer 2

Python автоматически упаковывает и распаковывает кортежи вокруг присвоения имитирующих списков. В Perl вы можете написать его таким же образом, возвращая список.

sub fnuh { 
    my $a = 'foo'; 
    my $b = 'bar'; 
    $a, $b 
} 

затем использовать результат:

my ($x, $y) = fnuh; 

или если вам нужна ссылка:

my $ref = [ fnuh ]; 

Answer 3

Вы можете получить ту же функцию, Python, явно испытывая хочет ли контекст a массив с функцией wantarray.

sub fnuh { 
    my $a = 'foo'; 
    my $b = 'bar'; 
    return wantarray ? ($a, $b), [ $a, $b ]; 
} 

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

sub pack_list { 
    my $want = wantarray; 
    return unless defined $want; # void context 
    return $want ? @_ : \@_; 
} 

Затем вызовите его следующим образом:

return pack_list($a, $b);