require File::Temp;

網(wǎng)站制作、網(wǎng)站建設(shè)服務(wù)團(tuán)隊(duì)是一支充滿著熱情的團(tuán)隊(duì)，執(zhí)著、敏銳、追求更好，是創(chuàng)新互聯(lián)的標(biāo)準(zhǔn)與要求，同時(shí)竭誠為客戶提供服務(wù)是我們的理念。成都創(chuàng)新互聯(lián)把每個(gè)網(wǎng)站當(dāng)做一個(gè)產(chǎn)品來開發(fā)，精雕細(xì)琢，追求一名工匠心中的細(xì)致，我們更用心！

#!/usr/bin/perl 
#!perl 
# 兼容Win和unix 
# wangxiaoyu#live.com 
use strict; 
use warnings; 
# 模塊聲明 
use File::Temp;  
use File::Spec; 
use IO::File; 
 
# 這里是默認(rèn)創(chuàng)建文件的位置 
print File::Spec->tmpdir(); 
print "\n"; 
 
# 定義文件句柄，使用后是否刪除文件，文件后綴等 
my $fh = File::Temp->new(  
        TEMPLATE => 'tmpXXXXX',  
        UNLINK => 0,   
        SUFFIX => '.log',  
        # 這里默認(rèn)創(chuàng)建文件的位置被重新指定 
        DIR => File::Spec->tmpdir()  
        );   
my $FileName =$fh->filename; 
 
# 打印tree命令的結(jié)果只是為了在windows和Unix上都顯示結(jié)果 
print $fh "以下是測試內(nèi)容\n",`tree`; 
 
# 默認(rèn)這個(gè)時(shí)候文件還在緩存里呢，使用IO::File的flush函數(shù)刷新到文件里 
$fh->flush(); 
 
print $FileName; 
print "\n"; 
 
# 打印文件的內(nèi)容 
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; 
 
# 這里是默認(rèn)創(chuàng)建文件的位置 
print File::Spec->tmpdir(); 
print "\n"; 
 
# 定義文件句柄，使用后是否刪除文件，文件后綴等 
my ($fh, $FileName) = tempfile( 
        TEMPLATE => 'tmpXXXXX',  
        UNLINK => 0,   
        SUFFIX => '.log' ); 
 
# 打印tree命令的結(jié)果只是為了在windows和Unix上都顯示結(jié)果 
print $fh "以下是測試內(nèi)容\n",`tree`; 
 
print $FileName; 
print "\n"; 
 
# 默認(rèn)這個(gè)時(shí)候文件還在緩存里呢，使用IO::File的flush函數(shù)刷新到文件里 
$fh->flush(); 
 
# 打印文件的內(nèi)容 
open(FH,$FileName) or die "$!"; 
while(<FH>){ 
    print $_; 
} 
close(FH); 

文章題目：Perl的File::Temp模塊簡約說明
轉(zhuǎn)載來源：http://aaarwkj.com/article34/gjgpse.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站設(shè)計(jì)、Google、面包屑導(dǎo)航、外貿(mào)建站、網(wǎng)站導(dǎo)航、全網(wǎng)營銷推廣

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)