婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > perl讀寫文件代碼實例

perl讀寫文件代碼實例

熱門標簽:智能機器人電銷神器 電話機器人哪里有賣 okcc外呼系統怎么調速度 熱門電銷機器人 惠州龍門400電話要怎么申請 萬利達百貨商場地圖標注 河南虛擬外呼系統公司 外呼電信系統 上海企業外呼系統

#mode operand create truncate
#read  
#write >  yes yes 
#append >> yes

Case 1: Throw an exception if you cannot open the file:

復制代碼 代碼如下:

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:

復制代碼 代碼如下:

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

復制代碼 代碼如下:

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

標簽:綏化 周口 秦皇島 綿陽 合肥 百色 淮安 周口

巨人網絡通訊聲明:本文標題《perl讀寫文件代碼實例》,本文關鍵詞  perl,讀寫,文件,代碼,實例,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《perl讀寫文件代碼實例》相關的同類信息!
  • 本頁收集關于perl讀寫文件代碼實例的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 钦州市| 胶州市| 高清| 武川县| 东平县| 康平县| 敦煌市| 乐东| 二连浩特市| 牡丹江市| 怀集县| 阿拉善左旗| 张北县| 山丹县| 昌江| 鄂尔多斯市| 新巴尔虎左旗| 普格县| 彰化县| 大悟县| 孝感市| 许昌市| 宁远县| 邵武市| 象山县| 江门市| 阿克陶县| 清水河县| 临夏县| 徐闻县| 柘荣县| 合山市| 湖北省| 虎林市| 铜梁县| 和平区| 疏附县| 武义县| 华阴市| 双流县| 蒲江县|