初冬安静的小窝

写一个程序，将一些字符串（不同的行）读入一个列表中，逆向输出它。如果是从键盘输入的，那在Unix 系统中
应当使用CTRL+D 表明end-of-file，在Windows 系统中使用CTRL+Z.

#!/usr/bin/perl
chomp(@lines=);
@lines=reverse(@lines);
print @lines;

#程序目的为输入多行文字后打印选定的行
print "Enter several lines: (End by Ctrl + d)\n";
 

@text = ;
print "Which line do you want to display? ";
 

$n = ;
print $text[$n-1];

如果是从键盘输入的，那在Unix 系统中
应当使用CTRL+D 表明end-of-file

写一个程序，读入一串数字（一个数字一行），将和这些数字对应的人名（下面列出的）输出来。（将下面的人
名列表写入代码中）。例如，当输入为1，2，4 和2，则输出的为fred, betty, dino, 和betty：
fred betty barney dino Wilma pebbles bamm-bamm

      1 #!usr/bin/perl
      2 @lines=;
      3 chomp(@lines);
      4 @name= qw /a b c d e f/;
      5 foreach $line(@lines){
      6
      7 print"$line: $name[$line-1] \n";
      8 }
 写一个程序，将一些字符串（在不同的行中）读入一个列表中。然后按ASCII 顺序将它们输出来。也就是说，当输
入的字符串为fred, barney, wilma, betty，则输出为barney betty fred wilma。分别在一行或不同的行将之输出。

       1 #!usr/bin/perl
      2 @a=;
      3 chomp(@a);
      4 @b=sort(@a);
      5 print @b;