perl跳過首行讀取文件的實(shí)現(xiàn)代碼

#!/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;