提供了编程的基础技术教程

zl程序教程

您现在的位置是：首页 >  其他

当前栏目

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

文件代码 实现 读取 Perl 跳过 首行
2023-06-13 09:14:45 时间

复制代码代码如下:


#!/usr/bin/perl
open(READ,"<$file");
readlineREAD;#skipthefirstline
while(<READ>){
my($id,$axis1,$axis2,$axis3,$value)=split//;
$line=sprintf("%d%d%d%d%d%d",
$id,$axis1,$axis2,$axis3,$value,$axis1+$axis2);
printWRITE$line;
}
closeREAD;

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

相关文章