Необязательно возвращать массив или хэш из подпрограммы?

Question

Как я могу вернуть хеш или массив из подпрограммы, в зависимости от того, чего хочет пользователь?

В принципе, я хочу подпрограмму, когда при запросе вернуть хэш она вернет хэш, но когда его попросят вернуть массив, он вернет массив, содержащий ключи от этого хэша.

например:

my %hash = foo(); 

my @array = foo(); # @array contains "keys %hash" 

# pseudo code 
sub foo { 

    # Define a hash 
    my %hash = (
     'key1' => 'val1', 
     'key2' => 'val2', 
     'key3' => 'val3', 
    ); 

    # I know this is not valid Perl code, but it represents what I want. 
    return keys %hash if wantarray; 
    return %hash  if wanthash; 
} 

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

Answer 1

Ваша подпрограмма может возвращать массив или reference to hash.

my @array = foo(); # @array contains "keys %hash" 
my $hash_reference = foo(); 

print $array[0],"\n"; # keys returned by foo are in random order 
print $hash_reference->{key1},"\n"; 


# sample code 
sub foo { 

    # Define a hash 
    my %hash = (
     'key1' => 'val1', 
     'key2' => 'val2', 
     'key3' => 'val3', 
    ); 

    if(wantarray) { 
     return keys %hash; 
    }else{ 
     return \%hash 
    } 
} 

Answer 2

Просто добавьте параметр так, что, если она передается в, он возвращает ключи:

sub foo { 
    my $want_keys = shift; 

    my %hash = (a => 1, b => 2, c => 3,); 

    return keys %hash if $want_keys; 

    return %hash; 
} 

my %hash = foo(); 

my @keys = foo(1); # or foo('keys'); 

Единственный способ сделать это хэш возвращается, если список находится в розыске, в противном случае ссылка на массив из ключи, а это значит, абонент должен будет разыменованием потом:

sub foo { 
    my %hash = (a=>1, b=>2); 
    return %hash if wantarray; 
    return [keys %hash]; 
} 

my $keys = foo(); 
my %hash = foo();