Perl语言入门（第8版）

310

｜

附录

A

@names = qw/ fred betty barney dino wilma pebbles bamm-bamm /;

print "Enter some numbers from 1 to 7, one per line, then press Ctrl-D:\n";

chomp(@numbers = <STDIN>);

foreach (@numbers) {

print "$names[ $_ - 1 ]\n";

}

因为数组索引是从

0

数到

6

，所以这里必须将索引值减

1

，好让用户能够从

1

数

到

7

。另外一种做法是在

@names

数组前面加上一个值来充数，像这样：

@names = qw/ dummy_item fred betty barney dino wilma pebbles bamm-bamm /;

如果你还额外检查了用户的输入是否在

1

到

7

的范围内，请给自己加分。

3.

如果想让所有的输出结果均显示在同一行，下面是实现方法之一：

chomp(@lines = <STDIN>);

@sorted = sort @lines;

print "@sorted\n";

或者，让每行分开显示：

print sort <STDIN>;

第

4

章习题解答

1.

下面是实现方法之一：

sub total {

my $sum; #

私有变量

foreach (@_) {

$sum += $_;

}