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(
){ - 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(
){ - print $_;
- }
- close(FH);