🚀 go-pugleaf

 [courtesy cc of this posting sent to cited author via email]

In comp.lang.perl.misc, 
    gthelen@engin.umich.edu (Greg Thelen) writes:
: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);

You'd have to add

    $fh = POSIX::new_from_fd($fd, ">");

--tom
-- 
Tom Christiansen      Perl Consultant, Gamer, Hiker      tchrist@mox.perl.com

	    Rounded, wounded, grieve and sieve,
	    Friend and fiend, alive and live.