require File::Temp;
- #!/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);
- #!/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);
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。