在Perl语言编程一书中学习到了一种直接读取特定格式文件的方法,非常简洁,代码如下:

while (<*.pl>){
	print $_." ";
}