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 file17 open(FH, "aa.txt") or die $!;18 my @f = <FH>;#将文件内容读出19 print @f;20 21 close(FH);