perl 打开和关闭文件

 1 #!/usr/bin/perl -w

 2 use strict;

 3 

 4 #print "please input a string\n";

 5 #my $line = <STDIN>;

 6 #print $line;

 7 

 8 #wirte a file

 9 open(FH, ">aa.txt") or die $!;

10 

11 print FH "hello\n";#向文件写入内容

12 print FH "OK\n";

13 

14 close(FH);

15 

16 #open a file

17 open(FH, "aa.txt") or die $!;

18 my @f = <FH>;#将文件内容读出

19 print @f;

20 

21 close(FH);