《Perl语言入门》第四版习题（3）

1. 写一个程序，将一些字符串（不同的行）读入一个列表中，逆向输出它。如果是从键盘输入的，那在Unix 系统中应当使用CTRL+D 表明end-of-file，在Windows 系统中使用CTRL+Z.
2. 写一个程序，读入一串数字（一个数字一行），将和这些数字对应的人名（下面列出的）输出来。（将下面的人名列表写入代码中）。fred betty barney dino Wilma pebbles bamm-bamm
   例如，当输入为1，2，4 和2，则输出的为fred, betty, dino, 和betty
3. 写一个程序，将一些字符串（在不同的行中）读入一个列表中。然后按ASCII 顺序将它们输出来。也就是说，当输入的字符串为fred, barney, wilma, betty，则输出为barney betty fred wilma。分别在一行或不同的行将之输出。

1:
#!/usr/bin/perl -w
@michael=reverse(<>);
print "@michael";
或：
#!/usr/bin/perl -w
@userinput=<STDIN>;
foreach (@userinput)
{
unshift (@array,$_);
}
print "array is @array/n";

2:
#!/usr/bin/perl
@name=qw(fred betty barney dino Wilma pebbles bamm-bamm);
@number=<>;
foreach (@number)
{
print "$name[$_-1]/n";
}

3:
#!/usr/bin/perl
@array=<>;
@array=sort @array;
print "@array";