Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

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.

YMMV, TIMTOWDI, etc..

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://185844]
help
Chatterbox?
[LanX]: Copts
[erix]: sorry - just pulling your leg
[robby_dobby]: erix: It's a little late for that :-)
[robby_dobby]: I was falling asleep at my chair and threw out that one bit about participating in a YAPC. Things went from there :-)
[erix]: never too late to pull legs
[LanX]: Official YAPC Africa 2013 Announcement
erix always game to pull legs from sleeping cells
[erix]: hm nice might do a spot of diving - Red Sea is said to be beautiful
[LanX]: well too many terrorist tourists
[erix]: I guess I can pass for a native

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (13)
As of 2017-04-24 16:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (442 votes). Check out past polls.