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)

      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',               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(); 总结

以上是内存溢出为你收集整理的Perl的File::Temp模块简约说明全部内容，希望文章能够帮你解决Perl的File::Temp模块简约说明所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。