跳过首行读取文件 perl跳过首行读取文件的实现代码
人气:0想了解perl跳过首行读取文件的实现代码的相关内容吗，在本文为您仔细讲解跳过首行读取文件的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：跳过首行,读取文件，下面大家一起来学习吧。
复制代码 代码如下:
#!/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正好帮了俺的大忙了。
加载全部内容