国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Perl > 正文

Perl學習筆記之文件操作

2020-06-04 20:33:40
字體:
來源:轉載
供稿:網友

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是一個標志 {  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;     #要讀取的行數,初始值為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))  #此種寫發,添加不刪除 {                 #此種寫法,重寫文件內容 MYFILE,">".$filename  print MYFILE "Write File appending Test/n";  close(MYFILE); } else{  print "I can't open this file!"; } exit; 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 八宿县| 甘南县| 阳山县| 梁山县| 洮南市| 息烽县| 盐城市| 浙江省| 安岳县| 资讯 | 门头沟区| 桐乡市| 勐海县| 大同县| 丁青县| 肥西县| 余姚市| 开远市| 雷山县| 大冶市| 舟山市| 隆回县| 芜湖市| 万源市| 澄城县| 肥西县| 米易县| 江门市| 南投市| 连平县| 九江县| 惠水县| 巧家县| 茶陵县| 时尚| 尼木县| 沙河市| 墨竹工卡县| 淳化县| 湾仔区| 海淀区|