#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use 5.010; my %names; open (FILE, "<", "names.txt"); #ファイルから取得してきた値をハッシュに格納する。 foreach my $name(<FILE>){ chomp($name); $name = lc($name); $names{$name} += 1; } #</file>…

入力した値（名）に応じて、対応した値（姓）を返します。 以下プログラムになります。 #!/usr/bin/perl use strict; use warnings; my @persons = <STDIN>; chomp(@persons); my %people = (fred => 'flintstone', barney => 'rubble', wilma => 'flintstone', ); </stdin>…