Two things I will recommend:
- File locking. You have a very big race condition in your code:
you read in the contents of the file, alter them, then write them
back out. Between the time that you've read the file and you
write the file, someone else (ie. another process) could have
changed that file. Then you would overwrite that chance when
you write the file w/ your file contents.
One way to fix this is to open the file in read/append mode, flock
it, seek to the beginning of the file, read from it, alter the file
contents in memory, seek back to the beginning, truncate it, then
rewrite the contents from memory. The flock will prevent the
race condition (at least w/ another version of your program that
Another way to fix the problem is to use a semaphore file, like
in tilly's Simple Locking. Here, you flock a semaphore file when
you want to enter the "critical section" of your program, and
then other processes of your program cannot enter that critical
section until you have released the lock.
I would recommend the second approach.
- My second suggestion is, you could just use a DBM file for
this, particularly since you already have the notion of keys
mapping to values. In particular, you could use MLDBM to
serialize the data structure into the DBM format of your choice.
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.
| & || & |
| < || < |
| > || > |
| [ || [ |
| ] || ] ||