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

发布时间：2020-06-09 12:30:14 阅读：2441 作者：xiaoyuwang 栏目：系统运维

开发者测试专用服务器限时活动，0元免费领，库存有限，领完即止！点击查看>>

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(<FH>){     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(<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();

亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>

向AI问一下细节

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

猜你喜欢

最新资讯

相关推荐

开发者交流群：

相关标签