Perl入学式in東京vol.3の復習問題「score.pl」より 第4問『所属毎の スコアが 60 以上の人の名前を格納する』。

perl_entrance_score_highscore.pl

#!/usr/bin/env perl

use strict;
use warnings;
use DDP;

my $papix = {
    name => 'papix',
    affiliation => 'namba.pm',
    perl => 60,
    python => 50,
    ruby => 50,
    php => 80,
    binary => 30,
    sum => 270,
};
my $boolfool = {
    name => 'boolfool',
    affiliation => 'namba.pm',
    perl => 40,
    python => 10,
    ruby => 20,
    php => 30,
    binary => 10,
    sum => 110,
};
my $moznion = {
    name => 'moznion',
    affiliation => 'hachioji.pm',
    perl => 100,
    python => 70,
    ruby => 80,
    php => 50,
    binary => 50,
    sum => 350,
};
my $binarian = {
    name => 'binarian',
    affiliation => 'hachioji.pm',
    perl => 10,
    python => 11,
    ruby => 1,
    php => 100,
    binary => 100,
};
my $uzulla = {
    name => 'uzulla',
    affiliation => 'hachioji.pm',
    perl => 1,
    python => 0.01,
    ruby => 0.5,
    php => 4,
    binary => 0.01,
};

#ここから回答。
my @people = ($papix, $boolfool, $moznion, $binarian, $uzulla);
my (@perl, @python, @ruby, @php, @binary);
my ($people, $name);

for $people (@people) {
    if (($people->{perl})>= 60) {
        push @perl, $people->{name};
    }
    if (($people->{python})>= 60) {
        push @python, $people->{name};
    }
    if (($people->{ruby})>= 60) {
        push @ruby, $people->{name};
    }
    if (($people->{php})>= 60) {
        push @php, $people->{name};
    }
    if (($people->{binary})>= 60) {
        push @binary, $people->{name};
    }
}    

my $highscore = {
    perl => "@perl",
    python => "@python",
    ruby => "@ruby",
    php => "@php",
    binary => "@binary",
};

p $highscore;

実行結果：

\ {
    binary   "binarian",
    perl     "papix moznion",
    php      "papix binarian",
    python   "moznion",
    ruby     "moznion"
}

関連URL：

• https://gist.github.com/note103/7241971 （設問3）
• https://gist.github.com/note103/7253611 （設問5）
• http://d.hatena.ne.jp/note103/20131030/1383151683 （設問3について書いたブログ）
• https://github.com/note103/perl_entrance/tree/master/2013_3 （第1問〜第5問 at GitHub）

さすがにもうちょっと何とかなりそうな気はする・・