3章 章末問題

3-1

#!/usr/bin/perl -w
chomp(@lines = <STDIN>);
foreach (reverse @lines) {
  print "$_ ";
}

foreachが余計だった。

3-2

#!/usr/bin/perl -w
@person = qw(fred betty barney dino wilma pebbles bamm-bamm);
chomp(@lines = <STDIN>);
foreach (@lines) {
  print "$person[$_-1] ";
}

qw()じゃなくてqw//のほうがタイプしやすい。

3-3

#!/usr/bin/perl -w
chomp(@sorted = sort <STDIN>);
print "@sorted\n";

chompしてるのに出力時に改行いれてる。