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

来源:爱站网时间:2020-05-07编辑:网友分享
Perl可以使程序变得更加简洁明了,而且我们在实行命令的时候可以编写很多命令,今天爱站技术频道将为大家带来已经实现了的内容,一起进入下文了解perl跳过首行读取文件的实现代码吧。

Perl可以使程序变得更加简洁明了,而且我们在实行命令的时候可以编写很多命令,今天爱站技术频道将为大家带来已经实现了的内容,一起进入下文了解perl跳过首行读取文件的实现代码吧。


#!/usr/bin/perl
open( READ, " readline READ; # skip the first line
while () {
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 = ; 感觉这样也好,但是如果需要同时处理多个文件,每个都需要跳过首行,每个都需要定义一个变量,觉得太浪费了,readline正好帮了俺的大忙了。

perl跳过首行读取文件的实现代码爱站技术频道就为大家介绍到这里了,相信大家参考上面的内容,可以更好的认识perl的专业知识。

上一篇:Perl中chomp和chop的区别介绍

下一篇:Perl split字符串分割函数用法指南

您可能感兴趣的文章

相关阅读

查看更多 >

热门软件源码

最新软件源码下载