Perl程序查看文件内容

中国龙老张

各位Perl高手

我想写一个Perl程序，获得如下信息

文件的第一行，中间一行，最后一行，并且 带有这三行的行号？   有什么好的实现方法？

多谢

yinyuemi

perl -lne '{$a[$.]=$_}END{print $a[1],"n",$a[$./2],"\n",$a[$.]}'