perl实例之文件读写操作

发布时间:2020-06-18编辑:脚本学堂
分享下perl编程中对文件操作的例子,学习下perl读写文件的方法,三个简单的perl实例,供大家学习参考。

本节内容:
perl文件读写、perl文件操作的方法。

一般情况,对文件操作,也就是读、写操作。
本节学习下perl是怎样对文件进行读写操作的。

1,perl 打开文件
语法:open(filehandle,filename),其中filehandle是一个标志,也就是类似PHP中的fopen后的$handle;filename是文件名,路径可为相对或者绝对路径
 

复制代码 代码示例:
#!c:/perl/bin/perl 
my $filename = 'test.txt'; 
if(open(MYFILE,$filename)) 

 print('i can open this file'); 
 close(MYFILE); 

else 

 print('i can' open this file'); 

exit; 
 

文件用完以后,别忘了close掉。

2,perl 读取文件内容
在打开文件以后,我们可以读取文件里面的内容出来,直接用<MYFILE>即可。
如果只是读取第一行的内容,可以用变量$line=<MYFILE>;如果要读取全部的内容,那么就用数组@myfile = <MYFILE>;
 

复制代码 代码示例:
#!c:/perl/bin/perl 
my $filename = 'test.txt'; 
if(open(MYFILE,$filename)) 

 print "i have opened this filen"; 
 #print MYFILE 'i can open this file'."n" ; 
 @myfile = <MYFILE>; 
 $count = 0; 
 while($count < @myfile) 
 { 
  print("$myfile[$count]n"); 
  $count++; 
 } 
 
 close(MYFILE); 

else 

 print('i can' open this filen'); 

exit; 

3,perl 写文件
写文件有2种形式,一种是覆盖写,一种是追加写。
覆盖的话,会把原来的内容清空,而追加则不会。
如何去写是根据打开文件来判断的。如:open(MYFILE,>filename)形式打开,则在写文件时会清空原来的内容;
如果是open(MYFILE,>>filename)形式打开,则不会清空。
 

复制代码 代码示例:
#!c:/perl/bin/perl 
my $filename = 'test.txt'; 
if(open(MYFILE,">>".$filename)) 

 print "i have opened this filen"; 
 print MYFILE "i can open this filen"; 
 close(MYFILE); 

else 

 print('i can' open this filen'); 

exit; 

注意,print函数写文件时,有2个参数,第一个参数是MYFILE,也就是打开的文件,然后跟着的参数是写入文件的内容。
 
文件操作除了以上的读写外,还有状态判断什么的,暂时不介绍了,需要用时查查即可。