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

#!/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 split字符串分割函数用法指南
本文和大家重点讨论一下Perlsplit函数的用法，Perl中的一个非常有用的函数是Perlsplit函数-把字符串进行分割并把分割后的结果放入数组中。这个Perlsplit

perl数组的多数字下标示例代码
perl数组中正常的下标运算，想必大家都比较熟悉，这里不作说明。本文想说的是perl数组下标的多数字取值，可以极大的方便数组的操作。注意：这些

perl对m x n类似表进行按列排序的代码
操作csv这样的表格在perl处理文件中是经常要碰到的。这样的表类似二维数组，因此实际上的操作时对二维数组的操作了。对这样的行列表格，我们常常