perl文件讀取的幾種處理方式小結(jié)
更新時(shí)間：2013年02月08日 20:14:58 作者：
perl打開文件后，可以有幾種方式對文件進(jìn)行讀取處理(根據(jù)文件大小，文件內(nèi)容的特征和其它要處理的方式)
1、單行(大文件處理)：
復(fù)制代碼 代碼如下:
my $oneline = <$FL> 或
while（$line=<H>）
{ }
2、讀取全部(小文件處理)：
復(fù)制代碼 代碼如下:
open (my $in, "path ") or die "open error: $! ";
my @lines = <$in> ;
3、讀3行(大文件及特殊處理需要)：
復(fù)制代碼 代碼如下:
open (my $in, "path ") or die "open error: $! ";
my @lines;
push (@lines, scalar <$in> ) for (1..3);
4、每次按條件讀入三行，并且按照條件輸出兩行?；蚋鶕?jù)其他具體要求修改達(dá)到相應(yīng)目的。
復(fù)制代碼 代碼如下:
while (<TEST>) {
if(index ($_, "=") > -1){
my $position=tell(TEST);
my $keyword_line=$_;
my $line_1=<TEST>;
my $line_2=<TEST>;
# @a=split//,$keyword_line; 比較它們的元素是否相等，一直沒成功
# @b=split//,$line_1; 利用if ($a[0]eq $a[0])來判斷
# @c=split//,$line_2;
if (($line_2)&&(index($line_2, "=")>-1)){ # 或者if ($line_2=~/=/)
print OUTFILE "$_$line_1";
}
if (!($line_2)) { print OUTFILE "$_$line_1"; last; }
seek(TEST, $position, 0);
}
}
您可能感興趣的文章:
相關(guān)文章
了解perl的朋友，都知道perl上下文在perl編程中的重要性，這里粗淺的作下介紹，供初學(xué)的朋友參考2013-02-02
Deparse 模塊是一個(gè)很好的打印機(jī)，它可以揭開 Perl 代碼神秘的面紗，幫助你理解優(yōu)化器為你的代碼做了那些轉(zhuǎn)換。換言之，它會重新生成Perl代碼，試著略去一些晦澀難懂的部分，把代碼用一致的格式寫出來2013-03-03
這篇文章主要介紹了什么是Perl？編程語言Perl詳細(xì)介紹,本文著重講解了Perl的發(fā)展歷史,需要的朋友可以參考下2015-02-02
用Perl操作Excel文檔的例子，有需要的朋友可以參考下2013-02-02
一篇文章搞懂：詞法作用域、動態(tài)作用域、回調(diào)函數(shù)及閉包
這篇文章主要給大家介紹了如何通過一篇文章搞懂：詞法作用域、動態(tài)作用域、回調(diào)函數(shù)及閉包的相關(guān)資料，文中通過示例代碼介紹的非常詳細(xì)，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面來一起看看吧2018-12-12
這篇文章主要介紹了Perl函數(shù)(子程序)學(xué)習(xí)筆記,本文講解了函數(shù)定義、函數(shù)返回值、函數(shù)參數(shù)傳遞等內(nèi)容,需要的朋友可以參考下2014-11-11
這篇文章主要介紹了Perl讀寫文件簡單示例,本文直接給出實(shí)現(xiàn)代碼,需要的朋友可以參考下2015-04-04
這篇文章主要介紹了Perl List::Util模塊使用實(shí)例,本文給出掃描符合條件的某個(gè)列表并取出第一個(gè)符合條件的、求1到1000之間的和 、求一組數(shù)字的最大值與最小值等實(shí)用功能代碼,需要的朋友可以參考下2015-06-06
Perl圖形化包管理工具PPM學(xué)習(xí)使用筆記
這篇文章主要介紹了Perl圖形化包管理工具PPM學(xué)習(xí)使用筆記,本文詳細(xì)講解了什么是PPM、PPM界面的功能按鈕說明、PPM如何安裝卸載包等內(nèi)容,需要的朋友可以參考下2015-06-06
perl為行讀取方式，有著強(qiáng)大的對行處理的能力，同樣，通過內(nèi)部命令和巧妙的編程技巧，其對列的處理能力同樣不可小覷2013-02-02