perl讀寫(xiě)文件代碼實(shí)例
更新時(shí)間：2015年05月08日 11:21:11 投稿：junjie
這篇文章主要介紹了perl讀寫(xiě)文件代碼實(shí)例,本文直接給出實(shí)現(xiàn)代碼,需要的朋友可以參考下
#mode operand create truncate
#read <
#write > yes yes
#append >> yes
Case 1: Throw an exception if you cannot open the file:
復(fù)制代碼 代碼如下:
use strict;
use warnings;
my $filename = 'data.txt';
open(my $fh, '<:encoding(UTF-8)', $filename)
or die "Could not open file '$filename' with the error $!";
while (my $row = <$fh>) {
chomp $row;
print "$row\n";
}
close($fh);
Case 2: Give a warning if you cannot open the file, but keep running:
復(fù)制代碼 代碼如下:
use strict;
use warnings;
my $filename = 'data.txt';
if (open(my $fh, '<:encoding(UTF-8)', $filename)) {
while (my $row = <$fh>) {
chomp $row;
print "$row\n";
}
close($fh);
} else {
warn "Could not open file '$filename' $!";
}
Case 3: Read one file into array
復(fù)制代碼 代碼如下:
use strict;
use warnings;
my $filename = 'data.txt';
open (FILEIN, "<", $filename)
or die "Could not open file '$filename' with the error $!";
my @FileContents = <FILEIN>;
for my $l (@FileContents){
print "$l\n";
}
close FILEIN;
end
相關(guān)文章
這篇文章主要介紹了Perl腳本檢測(cè)一個(gè)域名是否有效,檢查域名是否可以正常打開(kāi),需要的朋友可以參考下2014-06-06
這篇文章主要介紹了Perl中捕獲警告信息、異常信息并寫(xiě)入日志詳解,本文分別給出了捕獲警告--不處理、捕獲警告--并轉(zhuǎn)換成異常、捕獲警告--并寫(xiě)入日志、捕獲并寫(xiě)日志的完整例子等實(shí)用實(shí)例,需要的朋友可以參考下2015-06-06
Deparse 模塊是一個(gè)很好的打印機(jī)，它可以揭開(kāi) Perl 代碼神秘的面紗，幫助你理解優(yōu)化器為你的代碼做了那些轉(zhuǎn)換。換言之，它會(huì)重新生成Perl代碼，試著略去一些晦澀難懂的部分，把代碼用一致的格式寫(xiě)出來(lái)2013-03-03
這篇文章主要介紹了詳解Perl字符串比較和整數(shù)比較的區(qū)別,需要的朋友可以參考下2017-09-09
perl中chomp的使用介紹(chop和chomp函數(shù)區(qū)別)
perl程序中，有時(shí)在輸入過(guò)程中使用chomp才會(huì)得到正確的結(jié)果2013-02-02
perl處理xml的模塊介紹，需要的朋友可以參考下2013-02-02
這個(gè)perl文件將執(zhí)行的任務(wù)是， 按照指定的文件夾目錄，自動(dòng)將該文件夾下的所有文件上傳到指定ftp站點(diǎn)的指定目錄下2006-11-11
有關(guān)perl文件操作的一些例子，供大家學(xué)習(xí)參考2013-02-02
這篇文章主要介紹了Perl初學(xué)筆記之Hello World,本文是自學(xué)Perl的一篇筆記,本文著重講解了cpan的使用,需要的朋友可以參考下2015-06-06
有關(guān)perl引用的相關(guān)知識(shí)，有需要的朋友可以參考下2013-02-02