fonction Perl sachant type de récepteur

Question

J'ai un fichier texte, et une fonction pour récupérer à partir de ce fichier texte:

@thefile = read_file('somepathfile'); 

Je voudrais avoir une application différente de la fonction read_file selon le type reçoit la information.

Donc, si je vous écris:

%thefile = read_file('somepathfile'); 

alors une autre fonction sera exécutée.

Comment faire cela?

Answer 1

Jetez un oeil à Want ou Contextual::Return Modules CPAN.

Ci-dessous un exemple simple en utilisant Want:

use strict; 
use warnings; 
use Want; 

sub read_file { 
    my $filepath = shift; 
    my @file_contents = get_file_contents($filepath); 

    return @file_contents if want('LIST'); 

    return { 
     filepath => $filepath, 
     content => \@file_contents, 
     lines => scalar @file_contents 
    } if want('HASH'); 

    die "Nothing for that context!"; 
} 

my @list = read_file('foo'); 
my %hash = %{ read_file('foo') }; 

NB. Le déréférencement de hachage est nécessaire pour forcer le contexte de retour.

/I3az/

Answer 2

Alors que draegtun's answer illustre une technique agréable, je vais recommander la clarté. Par exemple:

@thefile = read_file_lines('somepathfile'); 

%thefile = read_file_pairs('somepathfile');