导航：首页 > 服务器 >

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

发表于：2026-11-02 作者：千家信息网编辑

千家信息网最后更新 2026年11月02日，require File::Temp;use File::Temp (); use File::Temp qw/ :seekable /; $fh = File::Temp->new(); $fna

千家信息网最后更新 2026年11月02日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 data\n"; print "Filename is $tmp\n"; $tmp->seek( 0, SEEK_END );
用法说明脚本(适用于window和UNIX) 脚本一，01.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(){
print $_;
}
close(FH);

脚本二，02.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(){
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();

很赞哦！