久久首页
免费软件
网络时尚
网络学堂
专题讨论
网络资源
网络游戏
网络文档
网络产品
网站导航: 首页 > 网页开发 > Perl/CGI 学堂讨论 | 推荐文章

用Sysopen()进行更多的控制


2004-05-25  
 
为了更好的控制文件的打开方式,可以使用 sysopen() 函数:

use Fcntl;

sysopen(FH, $filename, O_RDWR|O_CREAT, 0666)

or die "Can't open $filename for reading/writing/creating : $!";


函数 sysopen() 带有四个参数,第一个是同open()函数类似的文件句柄参数, 第二个参数是不带模式信息的文件名,第三个参数是模式参数,由Fcntl 模块提供 的逻辑OR运算组合起来的常数构成,第四个参数(可选),为八进制属性值(0666表示 数据文件, 0777表示程序)。如果文件可以被打开,sysopen() 返回true,如果打开失败, 则返回false。

不同于open()函数,sysopen()不提供模式说明的简写方式,而是把一些常数组合起来, 而且,每个模式常数有唯一的含义,只有通过逻辑OR运算才能将它们组合起来,你可以设 置多个行为的组合。

O_RDONLYRead-only

O_WRONLY Write-only

O_RDWR Reading and writing

O_APPEND Writes go to the end of the file

O_TRUNC Truncate the file if it existed

O_CREAT Create the file if it didn't exist

O_EXCLError if the file already existed (used with O_CREAT)


当你需要小心行事的时候,就使用sysopen() 函数,例如,如果你打算添加内容到文件 中,如果文件不存在,不创建新文件,你可以这样写:

sysopen(LOG, "/var/log/myprog.log", O_APPEND, 0666)

or die "Can't open /var/log/myprog.log for appending: $!";

 
发表评论 推荐文章 关闭窗口
 相关内容
- Perl常用系统函数 2004-05-25
- Perl DBI 入门 2004-05-25
- Perl的经典用法:读入段落 2004-05-25
- Perl的经典用法:读入单个记录 2004-05-25
- Perl的经典用法:读入多个记录 2004-05-25
- Perl的经典用法:用Open()函数打开文件 2004-05-25
- Perl的基本输入输出 2004-05-25
- Perl进程管理 2004-05-25
- Perl文件及目录操作 2004-05-25
- 各种平台下Perl模块的安装方法 2004-05-25
 
 学堂分类
网络知识操作系统
网络应用网络服务
网页开发网络编程
数据存储网络设备
 文章搜索
 
网站简介 | 广告服务 | 编程支持 | 设计服务 | 诚邀合作 | 访客留言
Copyright © 1999-2004 99NET. All Rights Reserved
版权所有 久久网络工作室
Email:webmaster@99net.net