ouyou2

ouyou2

#!/usr/bin/env perl

use strict;
use warnings;

my @numbers;

print "5つの数字を入力して下さい。\n";
for my $i (1..5){
  print "$iつ目の数字>>>";
  my $num = <STDIN>;
  chomp $num;
  push @numbers, $num;
}

my @sorted_num = sort @numbers;

print "昇順に並べ替えた数字を出力します。\n";
for my $j (@sorted_num){
  print "$j\n";
}