Perl的File::Temp模块说明

发布时间:2020-03-18编辑:脚本学堂
Perl的File::Temp模块说明

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 datan";
print "Filename is $tmpn";
$tmp->seek( 0, SEEK_END );

用法
说明脚本(适用于window和UNIX)
脚本一,file1.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);

脚本二,file2.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', 
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);

简介
 
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();