欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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

 更新時間：2013年02月09日 17:39:35   作者：  
要求直接跳過第一行，然后讀取后面的內(nèi)容，以下代碼來自網(wǎng)絡，感謝原作者的辛苦勞動，順祝新年快樂

復制代碼 代碼如下:

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

相關文章

最新評論