Perl 入学式 #3 用

array.pl

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

print "問題1.\n";
my @array = ('Alice', 'Bob');

unshift @array, "Amon2";
push @array, "Catalyst";

for my $elem (@array) {
  print "$elem\n";
}

print "\n問題2.\n";
my @array = ('Alice', 'Bob');
my $head = shift @array;
print $head . "\n";

print "\n問題3.\n";
my @array = ('Alice', 'Bob');
my $last = pop @array;
print $last . "\n";

array2.pl

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

my @array1 = qw(0123 123 XXX);
my $phonenum = join '-', @array1;
print "$phonenum\n";

my $array2 = "/usr/bin/env perl";
my @path = split /\//, $array2;
for my $elem (@path) {
  print "$elem\n";
}

even_or_odd.pl

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

chomp(my $num = <STDIN>);

if ($num % 2 == 0) {
  print $num . " is even.\n";
} else {
  print $num . " is odd.\n";
}

hash.pl

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

my %hash = (
    name => "zaneli",
    sex => "male",
    food => "焼き肉"
);

print Dumper(%hash);

use Data::Dumper; # 呼び出す場所より後ろでもいいんだ…

hash2.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;

my %hash = (
    name => "zaneli",
    sex => "male",
    food => "焼き肉"
);

for my $key (keys %hash) {
  print "$key : $hash{$key}\n";
}

delete $hash{sex};
print Dumper(%hash);

sum.pl

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

my $sum = 0;
for my $i (1 .. 100) {
  $sum += $i;
}
print $sum . "\n";

vote.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;

my $tarou_ref = {
    name  => "tarou",
    foods => [qw/ラーメン 寿司 うどん/]
};
my $jirou_ref = {
    name  => "jirou",
    foods => [qw/寿司 カレー 焼き肉/]
};
my $saburou_ref = {
    name  => "saburou",
    foods => [qw/寿司 そば カレー/]
};

my @people = ($tarou_ref, $jirou_ref, $saburou_ref);

my %vote = ();
for my $person (@people) {
    for my $foods ($person -> {foods}) {
        for my $food (@$foods) {
            # このif文は要らないはずだけど、せっかく exists を習ったので。
            if (exists $vote{$food}) {
                $vote{$food} += 1;
            } else {
                $vote{$food} = 1;
            }
        }
    }
}

print Dumper(%vote);