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. print File::Spec->tmpdir();
13. print "\n";
14. # 定义文件句柄，使用后是否删除文件，文件后缀等
15. my $fh = File::Temp->new(
16. TEMPLATE => 'tmpXXXXX',
17. UNLINK => 0,
18. SUFFIX => '.log',
19. # 这里默认创建文件的位置被重新指定
20. DIR => File::Spec->tmpdir()
21. );
22. my $FileName =$fh->filename;
23. # 打印tree命令的结果只是为了在windows和Unix上都显示结果
24. print $fh "以下是测试内容\n",`tree`;
25. # 默认这个时候文件还在缓存里呢，使用IO::File的flush函数刷新到文件里
26. $fh->flush();
27. print $FileName;
28. print "\n";
29. # 打印文件的内容
30. open(FH,$fh->filename) or die "$!";
31. while(){
32. print $_;
33. }
34. 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. print File::Spec->tmpdir();
13. print "\n";
14. # 定义文件句柄，使用后是否删除文件，文件后缀等
15. my ($fh, $FileName) = tempfile(
16. TEMPLATE => 'tmpXXXXX',
17. UNLINK => 0,
18. SUFFIX => '.log' );
19. # 打印tree命令的结果只是为了在windows和Unix上都显示结果
20. print $fh "以下是测试内容\n",`tree`;
21. print $FileName;
22. print "\n";
23. # 默认这个时候文件还在缓存里呢，使用IO::File的flush函数刷新到文件里
24. $fh->flush();
25. # 打印文件的内容
26. open(FH,$FileName) or die "$!";
27. while(){
28. print $_;
29. }
30. close(FH);