采用perl语言实现，你可以会这样写：

　　while($line=){

　　print$line;

　　}

　　一开始这一程序已十分简洁，但是它的每条语句是什么意思呢?简单地说，是一个专用的文件句柄，在本例中它属于标准输入缓存(称为STDIN)，通常是连接到键盘。每次我们将的值赋给变量$line时，即为将STDIN缓存中的首行取出，然后放入$line。当到达缓存最后一行时，就会取出while语句判断条件为假的(EOF)文件结束标识符。程序的其它部分很简单可以这样解释。现在我们已经将输入信息放入$line变量，接着我们就可以用print函数将其打印到屏幕。或者更准确地说，打印到通常连接显示器的标准输入缓存。标准输入和输出缓存都可以重定向，例如可重定向到保存程序结果的某个文件中，如果是在处理文本，那么通常可以认为这与键盘及显示器是等价的。

　　你可能会认为这一程序已经是最短的了，但是通过使用perl的特殊变量，它还可以更短。

　　Perl语言编程有哪些特殊技巧

　　默认数据变量：$_

　　Perl有很多特殊变量，它们在程序运行过程中被自动分配，可用于访问程序本身的一些信息，诸如程序名或者进程ID号、命令行参数、或最后一个表达式的运算结果。这些变量中最经常使用也可能是最有用的是$_这一默认变量。如果你在程序中未指明，默认变量作为某个未分配的功能变量，用于保存一些perl结构体和函数的运算结果。在你熟悉perl之前这可能听起来令人费解，但是它的功能的确很强大。我们可以用变量$_来取消程序中的$line变量：

　　while(){

　　print$_;

　　}

　　这一程序和前一个是等价的，即使在测试条件while语句中我们仅使用到一个文件句柄。程序将输入存入到默认变量，所以当我们要输出时就可以用变量$_访问输入的信息。但是我们还可以把程序变得更短，记住我说过，$_是一个用于未定义的实现某个功能的默认变量，这样打印是它其中的一个功能，所以我们现在可以把程序这样来写：

　　while(){

　　print;

　　}