+ -
当前位置:首页 → 问答吧 → 如何把 ”O_RDWR|O_CREAT“ 当做参数传入一个sub

如何把 ”O_RDWR|O_CREAT“ 当做参数传入一个sub

时间:2010-08-25

来源:互联网

请教各位高手,如何把 ”O_RDWR|O_CREAT“ 当做参数传入一个sub, 举个例子
  1. use warnings;
  2. use strict;
  3. use NDBM_File;
  4. use Data::Dumper;
  5. use Fcntl 'O_CREAT', 'O_RDWR';

  6. my $access = 'O_RDWR|O_CREAT';

  7. sub tie_db {
  8.    my $inner_access = shift;
  9.    tie(my %h, 'NDBM_File', '/tmp/ndbm', $inner_access, 0666)
  10.       or die "Couldn't tie NDBM file 'filename': $!; aborting";
  11.    return \%h;
  12. }

  13. print Dumper(tie_db($access));
复制代码
虽然最后是有结果输出 ,但是有报错:
Argument "O_RDWR|O_CREAT" isn't numeric in null operation at

作者: oceanleaves   发布时间: 2010-08-25

my $access = O_RDWR | O_CREAT;

作者: 黑色阳光_cu   发布时间: 2010-08-25