ouyou4

ouyou4.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;
my @rev_foods;
for (my $i = @foods - 1; $i >= 0 ;$i-- ){
  push @rev_foods, $foods[$i];
}

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