手机
当前位置:查字典教程网 >脚本专栏 >perl >perl跳过首行读取文件的实现代码
perl跳过首行读取文件的实现代码
摘要:复制代码代码如下:#!/usr/bin/perlopen(READ,"

复制代码 代码如下:

#!/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中的范围声明our-my-local介绍

perl的cgi高级编程介绍

perl 删除数组元素的几种方法小结

Perl合并文本的一段实例代码

Perl从文件中读取字符串的两种实现方法

Perl中的特殊内置变量详细介绍

perl Socket编程实例代码

perl对长度不一文本的行列进行置换的实现代码

perl数组的多数字下标示例代码

Perl操作系统环境变量的脚本代码

精品推荐
分类导航