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);