perl跳过首行读取文件的实现代码

当前位置:首页>Perl>perl实战>perl跳过首行读取文件的实现代码

perl跳过首行读取文件的实现代码

时间:2015-06-20 15:13来源: 作者: 点击:
要求直接跳过第一行,然后读取后面的内容,以下代码来自网络,感谢原作者的辛苦劳动,顺祝新年快乐

代码如下:

#!/usr/bin/perl
open( READ, "<$file" );
readline READ; # skip the first line
while (<READ>) {
my ( $id, $axis1, $axis2, $axis3, $value ) = split / /;
$line = sprintf ( "%d %d %d %d %d %d",
$id, $axis1, $axis2, $axis3, $value, $axis1 + $axis2 );
print WRITE $line;
}
close READ;

这里说说我自己的想法,挺笨的:
直接定义标量变量运行一遍: my $skipfirst = <FH>; 感觉这样也好,但是如果需要同时处理多个文件,每个都需要跳过首行,每个都需要定义一个变量,觉得太浪费了,readline正好帮了俺的大忙了。

------分隔线----------------------------