Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Mysterious Disapperance of file contents

by bbfu (Curate)
on Aug 29, 2003 at 04:58 UTC ( #287587=note: print w/replies, xml ) Need Help??


in reply to Mysterious Disapperance of file contents

Like sgifford, I believe the problem lies in writedata or release_lock (or in some other code you've not shown us).

I also believe your code should be cleaned up a bit, such as:

#!/usr/bin/perl use warnings; use strict; use Fcntl qw':flock :seek'; our $COUNT_FILE = 'mycounter'; my $cfh; -e $COUNT_FILE ? open $cfh, "+< $COUNT_FILE" : open $cfh, "+> $COUNT_FILE" # not needed if file always exists or die "Can't open $COUNT_FILE: $!\n"; flock($cfh, LOCK_EX) or die "Can't lock: $!\n"; chomp(my $count = <$cfh> || ''); seek($cfh, 0, SEEK_SET); print $cfh ++$count, "\n"; print "Run #$count\n"; # truncate not needed as $count is always increasing close($cfh); # automagically releases the lock

bbfu
Black flowers blossom
Fearless on my breath

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://287587]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2020-05-31 04:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If programming languages were movie genres, Perl would be:















    Results (173 votes). Check out past polls.

    Notices?