Comment puis-je appliquer une fonction à une liste en utilisant map?

Question

Je souhaite appliquer une fonction à chaque élément d'une liste et stocker des résultats similaires à map(function, list) en python.

a essayé de passer une fonction à la carte, mais nous avons eu cette erreur:

perl -le 'my $s = sub {}; @r = map $s 0..9' 
panic: ck_grep at -e line 1. 

Quelle est la bonne façon de le faire?

Answer 1

Si une variable scalaire contient une référence de code - par exemple:

my $double = sub { 2 * shift }; 

Vous pouvez appeler le code très bien comme vous le feriez en Python, comme ceci:

$double->(50); # Returns 100. 

application qui à un map exemple:

my @doubles = map $double->($_), 1..10; 

Ou cette façon:

my @doubles = map { $double->($_) } 1..10; 

La deuxième variante est plus robuste, car le bloc défini par les {} accolades peut contenir un certain nombre de déclarations Perl:

my @doubles = map { 
    my $result = 2 * $_; 

    # Other computations, if needed. 

    $result; # The return of each call to the map block. 
} 1..10; 

Answer 2

essayer: map { $s->($_) } (0..9) au lieu de map $s 0..9

explication: en vous par exemple, $s est une référence à un sous-programme, vous devez donc déréférencer pour permettre les appels subroutin. Ceci peut être réalisé de plusieurs façons: $s->() ou &$s() (et probablement d'autres moyens que je oublie)

Answer 3

my $squared = sub { 
     my $arg = shift(); 
     return $arg ** 2; 
    }; 

alors soit

my @list = map { &$squared($_) } 0 .. 12; 

ou

my @list = map { $squared->($_) } 0 .. 12; 

ou peut-être

my $squared; 
BEGIN { 
    *Squared = $squared = sub(_) { 
     my $arg = shift(); 
     return $arg ** 2; 
    }; 
} 
my @list = map { Squared } 0 .. 12; 

Answer 4

Il est pas trop différent de Python.

@results = map { function($_) } @list; 
@results = map function($_), @list; 

ou « lambdas »,

@results = map { $function->($_) } @list; 
@results = map $function->($_), @list;