Perl的File::Temp模塊簡約說明

      require File::Temp;

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

      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

  1. #!/usr/bin/perl 
  2. #!perl 
  3. # 兼容Win和unix 
  4. # wangxiaoyu#live.com 
  5. use strict; 
  6. use warnings; 
  7. # 模塊聲明 
  8. use File::Temp;  
  9. use File::Spec; 
  10. use IO::File; 
  11.  
  12. # 這里是默認創(chuàng)建文件的位置 
  13. print File::Spec->tmpdir(); 
  14. print "\n"; 
  15.  
  16. # 定義文件句柄，使用后是否刪除文件，文件后綴等 
  17. my $fh = File::Temp->new(  
  18.         TEMPLATE => 'tmpXXXXX',  
  19.         UNLINK => 0,   
  20.         SUFFIX => '.log',  
  21.         # 這里默認創(chuàng)建文件的位置被重新指定 
  22.         DIR => File::Spec->tmpdir()  
  23.         );   
  24. my $FileName =$fh->filename; 
  25.  
  26. # 打印tree命令的結(jié)果只是為了在windows和Unix上都顯示結(jié)果 
  27. print $fh "以下是測試內(nèi)容\n",`tree`; 
  28.  
  29. # 默認這個時候文件還在緩存里呢，使用IO::File的flush函數(shù)刷新到文件里 
  30. $fh->flush(); 
  31.  
  32. print $FileName; 
  33. print "\n"; 
  34.  
  35. # 打印文件的內(nèi)容 
  36. open(FH,$fh->filename) or die "$!"; 
  37. while(<FH>){ 
  38.     print $_; 
  39. } 
  40. close(FH); 
腳本二，02.pl

  1. #!/usr/bin/perl 
  2. #!perl 
  3. # 兼容Win和Unix 
  4. # wangxiaoyu#live.com 
  5. use strict; 
  6. use warnings; 
  7. # 模塊聲明 
  8. use File::Temp qw(tempfile);  
  9. use File::Spec qw(tmpdir); 
  10. use IO::File; 
  11.  
  12. # 這里是默認創(chuàng)建文件的位置 
  13. print File::Spec->tmpdir(); 
  14. print "\n"; 
  15.  
  16. # 定義文件句柄，使用后是否刪除文件，文件后綴等 
  17. my ($fh, $FileName) = tempfile( 
  18.         TEMPLATE => 'tmpXXXXX',  
  19.         UNLINK => 0,   
  20.         SUFFIX => '.log' ); 
  21.  
  22. # 打印tree命令的結(jié)果只是為了在windows和Unix上都顯示結(jié)果 
  23. print $fh "以下是測試內(nèi)容\n",`tree`; 
  24.  
  25. print $FileName; 
  26. print "\n"; 
  27.  
  28. # 默認這個時候文件還在緩存里呢，使用IO::File的flush函數(shù)刷新到文件里 
  29. $fh->flush(); 
  30.  
  31. # 打印文件的內(nèi)容 
  32. open(FH,$FileName) or die "$!"; 
  33. while(<FH>){ 
  34.     print $_; 
  35. } 
  36. close(FH); 
簡介
 
new創(chuàng)建一個對象
my $tmp = new File::Temp();
或者
my $tmp = File::Temp->new();
可以跟的參數(shù)有:
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為真時，不會生效

函數(shù)
 
tmpfile 創(chuàng)建一個臨時文件
use File::Temp qw(tempfile);
...
my $fh = tempfile();
或者
創(chuàng)建一個文件，目錄由File::Spec模塊的tempdir()函數(shù)指定
my ($fh, $filename) = tempfile();

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

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

廣告

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

h5響應(yīng)式網(wǎng)站建設(shè)