Your Ad Here
首页 | 编程语言 | 网站建设 | 游戏天堂 | 冲浪宝典 | 网络安全 | 操作系统 | 软件时空 | 硬件指南 | 病毒相关 | IT 认证
软讯网络 > 操作系统 > Linux > Perl的经典用法 2
【标  题】:Perl的经典用法 2
【关键字】:Perl,Per,Perl
【来  源】:网络

Perl的经典用法 2

Your Ad Here 用 Sysopen()进行更多的控制
为了更好的控制文件的打开方式,可以使用 sysopen() 函数:

use Fcntl;

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

or die "Can 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 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 open /var/log/myprog.log for appending: $!";
Perl的经典用法 1:【上一篇】
Perl的经典用法 3:【下一篇】
【相关文章】
  • Perl的经典用法 1
  • 能丰富的Perl:将xinetd程序用于系统管理
  • 使用 perl 编写 GNOME 应用程序入门
  • 在SCO UNIX OperServer 5.0.6 系统中安装Apache+MySQL+PHP4
  • configure TCP Wrappers in Solaris 9
  • 在CB中如何自定义属性[properties]
  • Perform()与SendMessage()的不同
  • DelphiHelper v2.0 (帮助小工具含源代码)
  • GExperts 1.12 Full Source
  • 一套Developer Express控件包 For Delphi7
  • 【随机文章】
  • 【分享】11月24日 精品软件下载
  • 03)第3章 栈与队列题解
  • varchar VS nvarchar
  • 一个php作的文本留言本的例子(一)
  • gethostbyname_r() function use method!
  • linux下面apache2.0.52+php5+gd2+mysql
  • 如何在VB中使用回调(CallBack)过程
  • [Swing]布局管理器 - OverlayLayout
  • 做了件好事.
  • 学会使用sizeof
  • 【相关评论】
    没有相关评论
    【发表评论】
    姓名:
    邮件:
    随机码*
    评论*
          
    |  首 页  |  版权声明  |  联系我们   |  网站地图  |
    CopyRight © 2004-2007 软讯网络 All Rigths Reserved.