#! 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!"; } 

#! 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; 

#! 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;