Count spices

curry1.pl

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

my %spices;

open my $blend_file, "blendlist.txt";
die "ブレンドリストが開けません。" if !$blend_file;

while ( my $blend = <$blend_file> ) {
    if ( $blend =~ m/(\w+)\s(\w+)/ ) {
        my ( $spice1, $spice2 ) = ( $1, $2 );
        $spices{$spice1}++;
        $spices{$spice2}++;
    }
}

for my $spice ( sort keys %spices ) {
    printf "%12s %2d\n", $spice, $spices{$spice};
}

exit 0;

1;