Perl的File::Temp模块简约说明
发表于:2024-10-26 作者:千家信息网编辑
千家信息网最后更新 2024年10月26日,require File::Temp;use File::Temp (); use File::Temp qw/ :seekable /; $fh = File::Temp->new(); $fna
千家信息网最后更新 2024年10月26日Perl的File::Temp模块简约说明
$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
函数 tmpfile 创建一个临时文件 use File::Temp qw(tempfile); ... my $fh = tempfile(); 或者 创建一个文件,目录由File::Spec模块的tempdir()函数指定 my ($fh, $filename) = tempfile();
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(
){ - 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);
函数 tmpfile 创建一个临时文件 use File::Temp qw(tempfile); ... my $fh = tempfile(); 或者 创建一个文件,目录由File::Spec模块的tempdir()函数指定 my ($fh, $filename) = tempfile();
文件
内容
函数
结果
模块
位置
脚本
变量
句柄
只是
后缀
命令
对象
时候
缓存
测试
例子
参数
文件名
方法
数据库的安全要保护哪些东西
数据库安全各自的含义是什么
生产安全数据库录入
数据库的安全性及管理
数据库安全策略包含哪些
海淀数据库安全审计系统
建立农村房屋安全信息数据库
易用的数据库客户端支持安全管理
连接数据库失败ssl安全错误
数据库的锁怎样保障安全
网络安全对于国家的威胁
数据库任务书的设计要求
数据库具有的优势
简述网络安全技术作用
佛山软件开发排行榜
儿童网络安全指南
优炫数据库叫什么
数据库事务的概念
蛋白组织表达数据库
酒吧点歌服务器
我的世界服务器1.17.10
规范中小学生的网络安全教育
网络安全教育b卷答案
极米科技工业互联网
浙江湖州软件开发
某准服务器
v聊软件开发
access数据库保存后打开
河北定制软件开发规定
崇川区it软件开发培训
网络安全对于国家的威胁
sql建立一个员工数据库
信息网络技术员的年终总结
人才岛华为信息与网络技术学院
网络安全防护小帖
鲁西地区网络安全技术
node处理数据库数据
数据库增加一个字段
无锡善修网络技术公司
多媒体中控服务器