file lock error

dbs has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks, I am opening a few files like this:

use FileHandle;
usr Fcntl;
my $RLOG      = new FileHandle "+>> $runlog";
my $MLOG            = new FileHandle "+>> $mksysblog";

flock($RLOG, O_NONBLOCK) || warn "no NB lock $!";
flock($MLOG, O_NONBLOCK) || warn "no NB lock $!";
[download]

But I keep getting this error: error: can not lock open: (1) my code giving this error is:

if ( scalar @_ == 1 ) {
        my $roll1 = @_;
        my $rollog1 = new Logfile::Rotate(
           File     => $roll1,
           Count    => 15,
           Dir      => $dir,
           Gzip     => $gzip,
           Flock    => 'yes',
           Persist  => 'yes'
        );
        $rollog1->rotate();
}
[download]

plz help! thx!

Comment on file lock error Select or Download Code

Replies are listed 'Best First'.
Re: file lock error by ikegami (Patriarch) on Apr 06, 2011 at 19:43 UTC
Valid arguments for `flock` are `LOCK_SH` `LOCK_EX` `LOCK_UN` `LOCK_SH\|LOCK_NB` `LOCK_EX\|LOCK_NB` `LOCK_UN\|LOCK_NB` No idea what you meant by `flock O_NONBLOCK`.	[reply] [d/l] [select]
Re^2: file lock error by dbs (Sexton) on Apr 06, 2011 at 19:58 UTC
tried those, but it gave me an error `Bareword "LOCK_SH" not allowed while "strict subs" in use at dlpar_mks +ysb-run.plx line 62. Bareword "LOCK_NB" not allowed while "strict subs" in use at dlpar_mks +ysb-run.plx line 62. Bareword "LOCK_SH" not allowed while "strict subs" in use at dlpar_mks +ysb-run.plx line 63. Bareword "LOCK_NB" not allowed while "strict subs" in use at dlpar_mks +ysb-run.plx line 63. dlpar_mksysb-run.plx had compilation errors.` [download]	[reply] [d/l]
Re^3: file lock error by ikegami (Patriarch) on Apr 06, 2011 at 20:09 UTC
From the documentation to which I linked, import them from the Fcntl module, either individually, or as a group using the ':flock' tag. Add `use Fcntl qw( :flock );` [download] as in the example	[reply] [d/l]
Re^3: file lock error by ikegami (Patriarch) on Apr 06, 2011 at 20:10 UTC
DUP	[reply]
Re: file lock error by wind (Priest) on Apr 06, 2011 at 19:50 UTC
The Fcntl constants for flock can be found by browsing the source at cpan Fcntl.pm `use Fcntl qw(:flock);` [download] They are: `'flock' => [qw(LOCK_SH LOCK_EX LOCK_NB LOCK_UN)],` [download]	[reply] [d/l] [select]
Re^2: file lock error by dbs (Sexton) on Apr 06, 2011 at 20:06 UTC
ok thank you but I am still getting the same error. new code `use strict; use warnings; use MIME::Lite; use FileHandle; use File::Copy; use Logfile::Rotate; use Fcntl qw(:flock); flock($RLOG, LOCK_SH\|LOCK_NB) \|\| warn "no NB lock $!"; flock($MLOG, LOCK_SH\|LOCK_NB) \|\| warn "no NB lock $!";` [download] well similar error NOW: error: can not open: (1) before :error: can not lock open: (1)"	[reply] [d/l]
Re^3: file lock error by ikegami (Patriarch) on Apr 06, 2011 at 20:15 UTC
As you should. You're locking the file for reading, which prevents Logfile::Rotate from getting an exclusive lock on the file. Why are you locking the file?	[reply]
Re^4: file lock error by dbs (Sexton) on Apr 06, 2011 at 20:24 UTC
Re^5: file lock error by ikegami (Patriarch) on Apr 06, 2011 at 20:30 UTC