Perl學(xué)習(xí)筆記之文件操作
更新時(shí)間：2015年06月15日 09:40:49 投稿：junjie
這篇文章主要介紹了Perl學(xué)習(xí)筆記之文件操作,本文分別給出了打開文件、讀取文件、寫入文件代碼實(shí)例,需要的朋友可以參考下
Perl對文件的操作，跟其它的語言類似，無非也就是打開，讀與寫的操作。
1. 打開文件
#! c:/perl/bin/perl -w
use utf8;
use strict;
use warnings;
my $filename = 'test.txt'; # 或者用絕對路徑,如: c:/perl/Learn/test.txt
if(open(MYFILE,$filename)) # MYFILE是一個(gè)標(biāo)志
{
printf "Can open this file:%s!", $filename;
close(MYFILE);
}
else{
print "Can't open this file!";
}
2. 讀取文件
#! c:/perl/bin/perl -w
use utf8;
use strict;
use warnings;
my $filename = 'test.txt';
if(open(MYFILE,$filename))
{
my @myfile = <MYFILE>; #如果要讀取多行，用此方法，如果只讀取一行為:$myfile = <>;
my $count = 0; #要讀取的行數(shù)，初始值為0
printf "I have opened this file: %s\n", $filename;
while($count < @myfile){ #遍歷
print ("$myfile[$count]\n"); #注意此種寫法.
$count++;
}
close(MYFILE);
}
else{
print "I can't open this file!";
}
exit;
3. 寫入文件
#! c:/perl/bin/perl -w
use utf8;
use strict;
use warnings;
my $filename = 'test.txt';
if(open(MYFILE,">>".$filename)) #此種寫發(fā)，添加不刪除
{ #此種寫法，重寫文件內(nèi)容 MYFILE,">".$filename
print MYFILE "Write File appending Test\n";
close(MYFILE);
}
else{
print "I can't open this file!";
}
exit;
相關(guān)文章
perl pop push shift unshift實(shí)例介紹
perl的pop跟push操作數(shù)組的最右邊，shift跟unshift操作數(shù)組的最左邊2013-02-02
在成塊打印文本的時(shí)候特別有用，需要的朋友可以參考下2013-02-02
這篇文章主要介紹了About Perl（翻譯Perl官網(wǎng)介紹）,本文翻譯自Perl官網(wǎng)介紹,講解什么是Perl、Perl的歷史、Perl 5 特征、Perl在WEB環(huán)境下的使用等內(nèi)容,需要的朋友可以參考下2015-06-06
通過perl實(shí)現(xiàn)一個(gè)簡單的NIDS
使用perl實(shí)現(xiàn)一個(gè)簡單的NIDS，有需要的朋友可以參考下2013-02-02
這篇文章主要介紹了Perl中常見符號與操作,需要的朋友可以參考下2017-10-10
Perl 和 StrawberryPerl 與 ActivePerl 的區(qū)別詳解
這篇文章主要介紹了Perl 和 StrawberryPerl 與 ActivePerl 的區(qū)別詳解,本文給大家介紹的非常詳細(xì)，對大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2020-12-12
一個(gè)perl擴(kuò)展正則表達(dá)式代碼分析
今天傍晚回來翻了翻perlre文檔,基本算是看懂,趕緊記錄下來2013-02-02
這篇文章主要介紹了Perl學(xué)習(xí)筆記之CPAN使用介紹,本文講解了什么是CPAN、CPAN的目錄作用介紹、CPAN安裝Perl Module的兩種方法等內(nèi)容,需要的朋友可以參考下2015-06-06
這篇文章主要介紹了Perl AnyEvent中的watcher實(shí)例,關(guān)于AnyEvent請參閱的更多介紹請參閱文中的相關(guān)鏈接,需要的朋友可以參考下2014-09-09
perl的格式化(Format)報(bào)表輸出實(shí)現(xiàn)代碼
perl有最好的文本數(shù)據(jù)處理能力.這是大家都知道的.在perl本身有一個(gè)別的軟件沒有的小功能,就是Perl格式.它相當(dāng)于簡單的命令行報(bào)表和圖表輸出2013-01-01