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

泰山神

　　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　　

　　

• #!/usr/bin/perl
  
• #!perl
  
• # 兼容Win和unix
  
• # wangxiaoyu#live.com
  
• use strict;
  
• use warnings;
  
• # 模块声明
  
• use File::Temp;
  
• use File::Spec;
  
• use IO::File;
  
• 
  
• # 这里是默认创建文件的位置
  
• print File::Spec->tmpdir();
  
• print "\n";
  
• 
  
• # 定义文件句柄，使用后是否删除文件，文件后缀等
  
• my $fh = File::Temp->new(
  
•         TEMPLATE => 'tmpXXXXX',
  
•         UNLINK => 0,
  
•         SUFFIX => '.log',
  
•         # 这里默认创建文件的位置被重新指定
  
•         DIR => File::Spec->tmpdir()
  
•         );
  
• my $FileName =$fh->filename;
  
• 
  
• # 打印tree命令的结果只是为了在windows和Unix上都显示结果
  
• print $fh "以下是测试内容\n",`tree`;
  
• 
  
• # 默认这个时候文件还在缓存里呢，使用IO::File的flush函数刷新到文件里
  
• $fh->flush();
  
• 
  
• print $FileName;
  
• print "\n";
  
• 
  
• # 打印文件的内容
  
• open(FH,$fh->filename) or die "$!";
  
• while(){
  
•     print $_;
  
• }
  
• close(FH);
  

　　

脚本二，02.pl　　

　　

• #!/usr/bin/perl
  
• #!perl
  
• # 兼容Win和Unix
  
• # wangxiaoyu#live.com
  
• use strict;
  
• use warnings;
  
• # 模块声明
  
• use File::Temp qw(tempfile);
  
• use File::Spec qw(tmpdir);
  
• use IO::File;
  
• 
  
• # 这里是默认创建文件的位置
  
• print File::Spec->tmpdir();
  
• print "\n";
  
• 
  
• # 定义文件句柄，使用后是否删除文件，文件后缀等
  
• my ($fh, $FileName) = tempfile(
  
•         TEMPLATE => 'tmpXXXXX',
  
•         UNLINK => 0,
  
•         SUFFIX => '.log' );
  
• 
  
• # 打印tree命令的结果只是为了在windows和Unix上都显示结果
  
• print $fh "以下是测试内容\n",`tree`;
  
• 
  
• print $FileName;
  
• print "\n";
  
• 
  
• # 默认这个时候文件还在缓存里呢，使用IO::File的flush函数刷新到文件里
  
• $fh->flush();
  
• 
  
• # 打印文件的内容
  
• open(FH,$FileName) or die "$!";
  
• while(){
  
•     print $_;
  
• }
  
• 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();