初めてのPerl 第3章

ユーザーが入力したものをリストに格納して、入力終了時に逆出力する。

use strict;
use warnings;

use Data::Dumper;

my @lists = <STDIN>;
my $counts = 0;

foreach my $line (reverse @lists) {

        print  $line;
}

表示結果は以下のような表示になりました。

a
b
c
d
e
f
g
h
h
g
f
e
d
c
b
a

ユーザーが入力した数値を元に対応した人の名前を表示させる。

my @names = ("fred","betty","dino","太郎","空条","ken","tom");

#ユーザーからの入力値(複数個)を格納する。
my @list = <STDIN>;

# 格納した値を取り出す。
foreach my $key (@list) {
  # 取り出した値($key)で名前(@names)を取り出す。
  print $names[$key] . "\n";
 }

結果は以下のようになりました。

0
1
2
3
4
5
fred
betty
dino
太郎
空条
ken

ユーザーが入力した文字をソートして表示する。

use strict;
use warnings;

my @lines = <STDIN>;

foreach my $sorted (sort (@lines)){

  print $sorted;
}

結果は以下のようになりました。

test
alen
brown
alen
brown
test