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