Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: FIFO logfile done with flat file?

by clintp (Curate)
on Jul 28, 2002 at 20:22 UTC ( #185844=note: print w/ replies, xml ) Need Help??

in reply to FIFO logfile done with flat file?

You could do it with a flat file. There's lots of ways. One script I had used a simple DBM file and went something like this (hope this is cut down right):

{ use Fcntl qw(:flock); my %h; my $size=5; sub ringopen { open(F, ">ring.lock") || die; flock(F, LOCK_EX); dbmopen(%h, "ring", 0666) || die; } sub ringclose { dbmclose(%h); close(F); } sub ringadd { ringopen(); local $_=$h{next}; delete $h{$_-$size} if (defined $_); $h{$h{next}++}=$_[0]; ringclose(); } sub ringdump { ringopen(); my @a=sort { $a <=> $b } grep /^\d+$/, keys %h; @a=@h{@a}; ringclose(); return @a; } }
And you used it like this:
for(0..9, 'a'..'z') { ringadd($_); } print ringdump();
To initialize the ring buffer, remove the ring* files.


Comment on Re: FIFO logfile done with flat file?
Select or Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (9)
As of 2015-11-25 14:00 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (677 votes), past polls