perl 第三章

写一个程序，将一些字符串（不同的行）读入一个列表中，逆向输出它。如果是从键盘输入的，那在Unix 系统中

应当使用CTRL+D 表明end-of-file，在Windows 系统中使用CTRL+Z.

$ cat 3.1

#!/usr/bin/perl

@lines=;

@reverse=reverse @lines;

print reverse @lines;

写一个程序，读入一串数字（一个数字一行），将和这些数字对应的人名（下面列出的）输出来。（将下面的人

名列表写入代码中）。例如，当输入为1，2，4 和2，则输出的为fred, betty, dino, 和betty

#!/usr/bin/perl

@names=qw ;

foreach $id(){

#print "$id\n";

print $names[$id]."\n";

}

写一个程序，将一些字符串（在不同的行中）读入一个列表中。然后按ASCII 顺序将它们输出来。也就是说，当输入的字符串为fred, barney, wilma, betty，则输出为barney betty fred wilma。分别在一行或不同的行将之输出。

#!/usr/bin/perl

@lines=;

#@reverse=reverse @lines;

print sort @lines;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/7899089/viewspace-735433/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/7899089/viewspace-735433/