概述
复制代码 代码如下:
#!/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正好帮了俺的大忙了。
最后
以上就是活泼手链为你收集整理的perl跳过首行读取文件的实现代码的全部内容，希望文章能够帮你解决perl跳过首行读取文件的实现代码所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复