| 订阅 | 在线投稿
分享
 
 
 

Perl的经典用法:用Sysopen()进行控制

来源:互联网  宽屏版  评论
2008-05-19 06:25:48

为了更好的控制文件的打开方式,可以使用 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: $!";

  为了更好的控制文件的打开方式,可以使用 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: $!";   
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
王朝网络微信公众号
微信扫码关注本站公众号wangchaonetcn
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有