ouyou3

ouyou3.pl

#!/usr/bin/env perl

use strict;
use warnings;

my @foods;

print "好きな食べ物を入力して下さい。入力を終える時は END と入力して下さい。\n";

for (;;){
  print "好きな食べ物を入力して下さい>>";
  my $str = <STDIN>;
  chomp $str;
  if ($str eq 'END'){
    last;
  }else{
    push @foods, $str;
  }
}

my @rev_foods = reverse @foods;

print "\n入力された食べ物を逆順に出力します。\n\n";
for my $food (@rev_foods){
  print "$food\n";
}