cat

#!/usr/bin/perl -w
while(<>)
{
    chomp;
    unshift  @file,$_;   
}
print "@file\n";
写一个程序,类似于 cat,但保持输出的顺序关系。
(某些系统的名字可能是 tac。
)如果运行此程序:./tac fred barney
betty, 输出将是文件 betty 的内容,从最后一行到第一行,然后是 barney, 最后是 fred, 同样是从最后一行到第一行。
(注意
使用 ./确保调用的是你自己的程序,而非系统提供的)