您现在的位置是：网站首页> 编程资料编程资料
perl跳过首行读取文件的实现代码_perl_
2023-05-26
480人已围观
简介 perl跳过首行读取文件的实现代码_perl_
复制代码 代码如下:
#!/usr/bin/perl
open( READ, "<$file" );
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 =
