＃16:複数のデータを分類する
ここでは、複数のデータを受け取って、それを分類するプログラムをつくります。for と if を組み合わせると、複数のデータに同じ処理を繰り返すことができます。
my $count = <STDIN>;
for (1 .. $count) {
my $number = <STDIN>;
chomp($number);
print $number . "\n";
}my $count = <STDIN>;
for (1 .. $count) {
my $number = <STDIN>;
chomp($number);
print $number . "\n";
if ($number == 10) {
print "${number}は10に等しい\n";
} elsif ($number > 10) {
print "${number}は10より大きい\n";
} else {
print "${number}は10未満\n";
}
}