Perlで複数の値を割り当てる、UNDEFのトラブル

Question

Perlサブルーチンからいくつかの値を返し、それらを一括して割り当てたい。

これは時間の一部に連携しますが、いずれかの値がundef：

の場合ではありません。

sub return_many {
    my $val = 'hmm';
    my $otherval = 'zap';
    #$otherval = undef;
    my @arr = ( 'a1', 'a2' );
    return ( $val, $otherval, @arr );
}

my ($val, $otherval, @arr) = return_many();

.

Perlは値を連結して、UNDEF要素を無視します。PythonやOcamlのような破壊的な割り当ては私が期待しているものです。

戻り値をいくつかの変数に割り当てる簡単な方法はありますか？

編集：ここで私が構造化データを渡すために使用する方法です。MKVが提案されているので、@Aアレイは参照によって渡される必要があります。

use warnings;
use strict;

use Data::Dumper;

sub ret_hash {
        my @a = (1, 2);
        return (
                's' => 5,
                'a' => \@a,
        );
}

my %h = ret_hash();
my ($s, $a_ref) = @h{'s', 'a'};
my @a = @$a_ref;

print STDERR Dumper([$s, \@a]);

.

Answer 1

ここでの連結によってどういう意味かわからない：

use Data::Dumper;
sub return_many {
    my $val = 'hmm';
    my $otherval = 'zap';
    #$otherval = undef;
    my @arr = ( 'a1', 'a2' );
    return ( $val, $otherval, @arr );
}

my ($val, $otherval, @arr) = return_many();
print Dumper([$val, $otherval, \@arr]);

.

プリント

$VAR1 = [
          'hmm',
          'zap',
          [
            'a1',
            'a2'
          ]
        ];

.

while：

use Data::Dumper;
sub return_many {
    my $val = 'hmm';
    my $otherval = 'zap';
    $otherval = undef;
    my @arr = ( 'a1', 'a2' );
    return ( $val, $otherval, @arr );
}

my ($val, $otherval, @arr) = return_many();
print Dumper([$val, $otherval, \@arr]);

.

印刷：

$VAR1 = [
          'hmm',
          undef,
          [
            'a1',
            'a2'
          ]
        ];

.

$ othervalが 'zap'ではなくUNDEFであるという単一の差は、