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
してるのに出力時に改行いれてる。