perl_entrance_score_highscore2-2.pl

perl_entrance_score_highscore2-2.pl

#!/usr/bin/env perl
 
use strict;
use warnings;
use Data::Dumper;
 
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 $highscore;

for my $people (@people) {
    if ($people->{perl} >= 60) {
        if ($people->{affiliation} eq 'hachioji.pm') {
            push @{$highscore->{'hachioji.pm'}}, $people->{name};
        } elsif ($people->{affiliation} eq 'namba.pm') {
            push @{$highscore->{'namba.pm'}}, $people->{name};
        }
    }
}

print Dumper $highscore;