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

      require File::Temp;

#!/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); 

#!/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(<FH>){ 
    print $_; 
} 
close(FH);