首页|操作系统|软件开发|网页制作|媒体动画|数据库|ASP教程|ASP.NET教程|PHP教程|JSP教程|XML教程|建站资料|软件学院|行业资讯|平面设计|网络安全|晒IT论坛|IT人才
  位置: 晒IT >> 软件开发 >> Perl编程教程 >> 正文
 
 
Perl的经典用法:用Sysopen()进行更多的控制
Perl的经典用法:用Sysopen()进行更多的控制
 
 
<!--HTML_BEGIN-->

为了更好的控制文件的打开方式,可以使用 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常问问题集--第三篇
  • 下一篇: Perl的经典用法:用Open()函数打开文件
  •  告诉好友  打印此文 关闭窗口 返回顶部
     
    热点文章
     
     
    推荐文章
     
     
    相关文章

    | 设为首页 | 加入收藏 | 联系我们 | 友情链接 | 诚聘英才 |
    Copyright© 2008 ShaiIT.Com .All Rights Reserved
    下载alexa工具,提升您的网站排名