require File::Temp;

      use File::Temp ();
      use File::Temp qw/ :seekable /;

      $fh = File::Temp->new();
      $fname = $fh->filename;

      $fh = File::Temp->new(TEMPLATE => $template);
      $fname = $fh->filename;

      $tmp = File::Temp->new( UNLINK => 0, SUFFIX => '.dat' );
      print $tmp "Some data\n";
      print "Filename is $tmp\n";
      $tmp->seek( 0, SEEK_END );

用法
说明脚本(适用于window和UNIX)
脚本一，01.pl 

 
  
  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); 
 
  
 
   脚本二，02.pl 
  
 
  
 
   
 
  
 
  
 
  
  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); 
 
  
 
   简介 
  
 
  

      
  
 
  
 
   new创建一个对象 
  
 
  
 
    my $tmp = new File::Temp(); 
  
 
  
 
   或者 
  
 
  
 
    my $tmp = File::Temp->new(); 
  
 
  
 
   可以跟的参数有: 
  
 
  
 
   TEMPLATE（或以跟至少四位的变量，用X表示） DIR SUFFIX UNLINK(0 
   或1) 
  
 
  

      
  
 
  
 
   方法 
  
 
  

      
  
 
  
 
   filename 返回临时文件的文件名 
  
 
  
 
   接着上面的例子 
  
 
  
 
    my $FileName = $tmp->filename; 
  
 
  

      
  
 
  
 
   unlink_on_destroy 控制文件在使用过后是否删除 
  
 
  
 
    $fh->unlink_on_destroy(1); 
  
 
  

      
  
 
  
 
   DESTROY 如果对象超出范围，会删除文件，这个与unlink_on_destroy 
   类似 
  
 
  
 
   unlink_on_destroy和DESTROY，在当变量$KEEP_ALL为真时，不会生效 
  
 
  
 
   
 
  
 
  
 
   函数 
  
 
  

      
  
 
  
 
   tmpfile 创建一个临时文件 
  
 
  
 
    use File::Temp qw(tempfile); 
  
 
  
 
    ... 
  
 
  
 
    my $fh = tempfile(); 
  
 
  
 
   或者 
  
 
  
 
   创建一个文件，目录由File::Spec模块的tempdir()函数指定 
  
 
  
 
    my ($fh, $filename) = tempfile();