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(<FH>){ 
  
  
    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',   
  
  
        SUFFIX => '.log' ); 
  
  
 
  
  
# 打印tree命令的结果只是为了在windows和Unix上都显示结果 
  
  
print $fh "以下是测试内容\n",`tree`; 
  
  
 
  
  
print $FileName; 
  
  
print "\n"; 
  
  
 
  
  
# 默认这个时候文件还在缓存里呢，使用IO::File的flush函数刷新到文件里 
  
  
$fh->flush(); 
  
  
 
  
  
# 打印文件的内容 
  
  
open(FH,$FileName) or die "$!"; 
  
  
while(<FH>){ 
  
  
    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();