Perl/Array to Map

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

    my @array = ({
        id      => 1,
        name    => 'Bob',
    },{
        id      => 2,
        name    => 'Anne',
    },{
        id      => 3,
        name    => 'Frank'
    });

    my %hash = map {
        $_->{id} => { name => $_->{name} }
    } @array;

    for my $id (1..3) {
        my $name = $hash{$id}->{name};
        print "User $id: $name\n";
This produces the output:
    User 1: Bob
    User 2: Anne
    User 3: Frank

이 글에는 0 개의 댓글이 있습니다.