您好,登錄后才能下訂單哦!
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;
- # 這里是默認(rèn)創(chuàng)建文件的位置
- print File::Spec->tmpdir();
- print "\n";
- # 定義文件句柄,使用后是否刪除文件,文件后綴等
- my $fh = File::Temp->new(
- TEMPLATE => 'tmpXXXXX',
- UNLINK => 0,
- SUFFIX => '.log',
- # 這里默認(rèn)創(chuàng)建文件的位置被重新指定
- DIR => File::Spec->tmpdir()
- );
- my $FileName =$fh->filename;
- # 打印tree命令的結(jié)果只是為了在windows和Unix上都顯示結(jié)果
- print $fh "以下是測(cè)試內(nèi)容\n",`tree`;
- # 默認(rèn)這個(gè)時(shí)候文件還在緩存里呢,使用IO::File的flush函數(shù)刷新到文件里
- $fh->flush();
- print $FileName;
- print "\n";
- # 打印文件的內(nèi)容
- 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;
- # 這里是默認(rèn)創(chuàng)建文件的位置
- print File::Spec->tmpdir();
- print "\n";
- # 定義文件句柄,使用后是否刪除文件,文件后綴等
- my ($fh, $FileName) = tempfile(
- TEMPLATE => 'tmpXXXXX',
- UNLINK => 0,
- SUFFIX => '.log' );
- # 打印tree命令的結(jié)果只是為了在windows和Unix上都顯示結(jié)果
- print $fh "以下是測(cè)試內(nèi)容\n",`tree`;
- print $FileName;
- print "\n";
- # 默認(rèn)這個(gè)時(shí)候文件還在緩存里呢,使用IO::File的flush函數(shù)刷新到文件里
- $fh->flush();
- # 打印文件的內(nèi)容
- open(FH,$FileName) or die "$!";
- while(<FH>){
- print $_;
- }
- close(FH);
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。