代碼如下:
#!/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;

這里說(shuō)說(shuō)我自己的想法，挺笨的：
直接定義標(biāo)量變量運(yùn)行一遍： my $skipfirst = <FH>; 感覺(jué)這樣也好，但是如果需要同時(shí)處理多個(gè)文件，每個(gè)都需要跳過(guò)首行，每個(gè)都需要定義一個(gè)變量，覺(jué)得太浪費(fèi)了，readline正好幫了俺的大忙了。