杰瑞学Perl之文件操作(1)

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: %sn",$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 Testn";
  close(MYFILE);
}
else{
  print "I can't open this file!";
}
exit;