perl跳過(guò)首行讀取文件的實(shí)現(xiàn)代碼
更新時(shí)間：2013年02月09日 17:39:35 作者：
要求直接跳過(guò)第一行，然后讀取后面的內(nèi)容，以下代碼來(lái)自網(wǎng)絡(luò)，感謝原作者的辛苦勞動(dòng)，順祝新年快樂(lè)
復(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;
這里說(shuō)說(shuō)我自己的想法，挺笨的：
直接定義標(biāo)量變量運(yùn)行一遍： my $skipfirst = <FH>; 感覺(jué)這樣也好，但是如果需要同時(shí)處理多個(gè)文件，每個(gè)都需要跳過(guò)首行，每個(gè)都需要定義一個(gè)變量，覺(jué)得太浪費(fèi)了，readline正好幫了俺的大忙了。
相關(guān)文章
這篇文章主要介紹了Perl一句話命令行編程中常用參數(shù)總結(jié),本文總結(jié)了如-e、-E、-M、-m等參數(shù),并講解了它們的作用及用法,需要的朋友可以參考下2014-09-09
perl的INC變量包含了所有perl module的查找路徑，可以使用perl -V 來(lái)查看INC的值2013-02-02
perl AnyEvent簡(jiǎn)單介紹和入門知識(shí)
這篇文章主要介紹了perl AnyEvent簡(jiǎn)單介紹和入門知識(shí),AnyEvent 是一個(gè)性能非常好的基于事件驅(qū)動(dòng)的框架,需要的朋友可以參考下2014-09-09
使用 use re debug 查看正則表達(dá)式的匹配過(guò)程
使用 use re 'debug' 查看正則表達(dá)式的匹配過(guò)程，參見(jiàn)如下的代碼2013-02-02
本文重點(diǎn)討論P(yáng)erl時(shí)間處理函數(shù)的概念,Perl能在絕大多數(shù)操作系統(tǒng)運(yùn)行,可以方便地向不同操作系統(tǒng)遷移,并且Perl借取了C、sed、awk、shellscripting以及很多其他程序語(yǔ)言的特性2017-09-09
怎么用perl程序，隨機(jī)生成一條序列，使ACGT四種堿基的含量分別為0.3，0.3，0.2，0.2！2013-03-03
這篇文章主要介紹了perl查找進(jìn)程PID的例子,例子中主要通過(guò)/proc目錄進(jìn)行PID的查找,需要的朋友可以參考下2014-06-06
如果要對(duì)使用的lib指定路徑，可以使用下面的語(yǔ)法2013-02-02
Perl使用nginx FastCGI環(huán)境做WEB開(kāi)發(fā)實(shí)例
這篇文章主要介紹了Perl使用nginx FastCGI環(huán)境做WEB開(kāi)發(fā)實(shí)例,實(shí)現(xiàn)了路由系統(tǒng)和模板系統(tǒng),需要的朋友可以參考下2014-06-06
講Perl中的本地時(shí)間與UNIX時(shí)間戳間相互轉(zhuǎn)換的方法
這篇文章主要介紹了講Perl中的本地時(shí)間與UNIX時(shí)間戳間相互轉(zhuǎn)換的方法,主要用到了Perl中的Date::Parse模塊,需要的朋友可以參考下2015-06-06