Perl的File::Temp模块简约说明

      require File::Temp;

1. #!/usr/bin/perl 
2. #!perl 
3. # 兼容Win和unix 
4. # wangxiaoyu#live.com 
5. use strict; 
6. use warnings; 
7. # 模块声明 
8. use File::Temp;  
9. use File::Spec; 
10. use IO::File; 
11.  
12. # 这里是默认创建文件的位置 
13. print File::Spec->tmpdir(); 
14. print "\n"; 
15.  
16. # 定义文件句柄，使用后是否删除文件，文件后缀等 
17. my $fh = File::Temp->new(  
18.         TEMPLATE => 'tmpXXXXX',  
19.         UNLINK => 0,   
20.         SUFFIX => '.log',  
21.         # 这里默认创建文件的位置被重新指定 
22.         DIR => File::Spec->tmpdir()  
23.         );   
24. my $FileName =$fh->filename; 
25.  
26. # 打印tree命令的结果只是为了在windows和Unix上都显示结果 
27. print $fh "以下是测试内容\n",`tree`; 
28.  
29. # 默认这个时候文件还在缓存里呢，使用IO::File的flush函数刷新到文件里 
30. $fh->flush(); 
31.  
32. print $FileName; 
33. print "\n"; 
34.  
35. # 打印文件的内容 
36. open(FH,$fh->filename) or die "$!"; 
37. while(<FH>){ 
38.     print $_; 
39. } 
40. close(FH); 

1. #!/usr/bin/perl 
2. #!perl 
3. # 兼容Win和Unix 
4. # wangxiaoyu#live.com 
5. use strict; 
6. use warnings; 
7. # 模块声明 
8. use File::Temp qw(tempfile);  
9. use File::Spec qw(tmpdir); 
10. use IO::File; 
11.  
12. # 这里是默认创建文件的位置 
13. print File::Spec->tmpdir(); 
14. print "\n"; 
15.  
16. # 定义文件句柄，使用后是否删除文件，文件后缀等 
17. my ($fh, $FileName) = tempfile( 
18.         TEMPLATE => 'tmpXXXXX',  
19.         UNLINK => 0,   
20.         SUFFIX => '.log' ); 
21.  
22. # 打印tree命令的结果只是为了在windows和Unix上都显示结果 
23. print $fh "以下是测试内容\n",`tree`; 
24.  
25. print $FileName; 
26. print "\n"; 
27.  
28. # 默认这个时候文件还在缓存里呢，使用IO::File的flush函数刷新到文件里 
29. $fh->flush(); 
30.  
31. # 打印文件的内容 
32. open(FH,$FileName) or die "$!"; 
33. while(<FH>){ 
34.     print $_; 
35. } 
36. close(FH);