这篇文章主要介绍了Perl学习笔记之文件操作,本文分别给出了打开文件、读取文件、写入文件代码实例,需要的朋友可以参考下
Perl对文件的操作，跟其它的语言类似，无非也就是打开，读与写的操作。
1. 打开文件
? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 #! 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. 读取文件
? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 #! 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: %sn", $filename; while($count < @myfile){ #遍历 print ("$myfile[$count]n"); #注意此种写法. $count++; } close(MYFILE); } else{ print "I can't open this file!"; } exit;
3. 写入文件
? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 #! 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 Testn"; close(MYFILE); } else{ print "I can't open this file!"; } exit;
