源码网商城，靠谱的源码在线交易网站我的订单购物车帮助

当前位置：首页 > 资讯 > 技术文档

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

时间：2022-06-13 01:44 编辑：来源：阅读：
扫一扫，手机访问

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

[u]复制代码[/u] 代码如下:

#!/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正好帮了俺的大忙了。

全部评论(0)

上一篇：swift 3.0 实现短信验证码倒计时功能
下一篇：Perl信号处理学习简单小结

资讯排行榜
更多>>

关于我们 | 广告合作 | 联系我们 | 隐私条款 | 免责声明 | 网站地图

苏ICP备2024110244号-2 苏公网安备32050702011978号增值电信业务经营许可证编号：苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有

联系客服

客服电话：
400-000-3129

微信版

扫一扫进微信版

返回顶部