Re^5: grep and dereferencing an array of arrays

Ok, that puts some light on your problem. This may be your solution:

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;

use Data::Dumper;

my $choices = [
    [
        'a',
        'W',
        'interupt',
    ],
    [
        'b',
        'R',
        'interrupt',
    ],
    [
        'c',
        'W',
        'innterupt',
    ],
    [
        'd',
        'W',
        'intterupt',
    ]
];


my $answer = 'd';
# As we know that the answer matches only one choice
# and we have exactly one matching answer.
my $chosen_answer = (grep { $_->[0] eq $answer } @$choices)[0];
say Dumper($chosen_answer);
[download]

McA

Comment on Re^5: grep and dereferencing an array of arrays Download Code

Replies are listed 'Best First'.
Re^6: grep and dereferencing an array of arrays by choroba (Cardinal) on Sep 06, 2013 at 21:04 UTC
Or, maybe more readable for some: `my ($chosen_answer) = grep { $_->[0] eq $answer } @$choices;` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^7: grep and dereferencing an array of arrays by McA (Priest) on Sep 06, 2013 at 21:12 UTC
I have to agree that this is more elegant and oakb asked for an elegant solution. Eily proposed almost the same a little earlier. Probably I can argue that my solution is more explicit. ;) Regards McA	[reply]