简单的 一道 Perl

    写一个程序，读入一些字符串，（每行一个），直到文件结尾为止，然后，再以相反顺序输出这个列表，假如输入来自键盘，你需要在Unix系统键入Contral-D或在Windows系统上键入Contral-Z来表示输入结束。

    其中的一种做法是；

     #!/usr/bin/perl -w              　　　　　　　　　　＃带警告

     print "Please input an array:\n";                     ＃输入提示信息

     print reverse ;                            　＃为读入数据，一直读下去，除非按下

　　　　　　　　　　　　　　　　　　　　　　　　　　　　＃结束键，一般是Contral-D，再倒序，最后打印。

看这个程序，和用Ｃ系的程序比较一下就可以看出，这个效率是多么的高了。基本上是一句话搞定。