Perl 학습지 파일 작업

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: %s
", $filename; 
 while($count < @myfile){ #  
  print ("$myfile[$count]
"); # . 
  $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 Test
"; 
 close(MYFILE); 
} 
else{ 
 print "I can't open this file!"; 
} 
exit;