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

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