初めての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