perl跳過首行讀取文件的實(shí)現(xiàn)代碼
更新時(shí)間：2013年02月09日 17:39:35 作者：
要求直接跳過第一行，然后讀取后面的內(nèi)容，以下代碼來自網(wǎng)絡(luò)，感謝原作者的辛苦勞動(dòng)，順祝新年快樂
復(fù)制代碼 代碼如下:
#!/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;
這里說說我自己的想法，挺笨的：
直接定義標(biāo)量變量運(yùn)行一遍： my $skipfirst = <FH>; 感覺這樣也好，但是如果需要同時(shí)處理多個(gè)文件，每個(gè)都需要跳過首行，每個(gè)都需要定義一個(gè)變量，覺得太浪費(fèi)了，readline正好幫了俺的大忙了。
相關(guān)文章
Perl中的符號(hào) ->;、=>; 和 :: 分別表示什么意思？
這篇文章主要介紹了Perl中的符號(hào) ->;、=>; 和 :: 分別表示什么意思,需要的朋友可以參考下2017-10-10
perl產(chǎn)生隨機(jī)數(shù)實(shí)現(xiàn)代碼
Perl利用函數(shù)rand()和srand()為隨機(jī)數(shù)（更確切的說是“偽隨機(jī)數(shù)”）字符串的生成提供了基本的工具2013-02-02
Perl字符串處理學(xué)習(xí)備忘錄，包括chop和chomp函數(shù)、getc函數(shù)、拼接字符串、分割字符串、重復(fù)拼接字符串、字串替換等。有需要的朋友，可以參考下2013-02-02
這篇文章主要介紹了Perl讀寫文件簡(jiǎn)單示例,本文直接給出實(shí)現(xiàn)代碼,需要的朋友可以參考下2015-04-04
這篇文章主要介紹了Perl中的真與假深入研究,本文詳細(xì)講解了Perl中真值與假值的不同,需要的朋友可以參考下2015-06-06
Perl使用chdir的例子，供朋友們參考學(xué)習(xí)2013-02-02
有關(guān)perl的內(nèi)置特殊變量，很全面，有需要的朋友收藏下吧2013-02-02
perl 文件操作總結(jié)，需要的朋友可以參考下2013-02-02
這篇文章主要介紹了perl中使用signal(信號(hào))實(shí)例,本文講解了信號(hào)的相關(guān)知識(shí)以,并給出了perl代碼實(shí)例,需要的朋友可以參考下2015-05-05
這篇文章主要介紹了7個(gè)perl數(shù)組高級(jí)操作技巧,本文講解了數(shù)組去重、數(shù)組合并、查找最大值、列表歸并等內(nèi)容,需要的朋友可以參考下2014-11-11