🚀 go-pugleaf

In article <47asja$728@csnews.cs.colorado.edu> Tom Christiansen <tchrist@mox.perl.com> writes:

> In comp.lang.perl.misc, 
>     pvr@korfu.igd.fhg.de (Reiners Dirk) writes:
> :Can I emulate/call the normal C open function in/from perl.
> :I want to translate the following code to perl:
> :
> :st=open("foo",O_CREAT|O_EXCL,0777)
> :
> :for writing a lockfile function (some machines here don't support flock :-(
> :
> :I have already a solution like
> :
> :syscall(&SYS_open, "foo", O_CREAT|O_EXCL, 0777);
> :

Any reason not to use the following (assuming Perl5)?

$fd = POSIX::open($file, O_CREAT|O_EXCL|O_WRONLY, 0644);

--
Greg Thelen
The University of Michigan (Ann Arbor)
Computer Aided Engineering Network