japhy — Thu, 16 Dec 1999 15:24:00 +0000

I'm not sure your problem is as complicated as you might think... however, I do not like your choice of delimiter (the pipe symbol) as it requires extra work when splitting the database line into parts.

Here's a simple little chunk of code; it assumes the db.txt file looks like so:

Code Sample:
username:age:town:state username:age:town:state (etc.)

Code Sample:
use Fcntl qw( LOCK_EX ); open DB, "+<db.txt" or die "can't open db.txt: $!"; flock DB, LOCK_EX; while (<DB> ) { $user = (split /:/)[0]; $_ .= join ":", "", info($user); push @db, $_; } seek DB, 0, 0; truncate DB, 0; print DB while defined($_ = shift @db); close DB;

The info() function returns a list of data regarding that specific user. The reason there is an extra "" before the list returned by the info() function is so that there is a colon after the current db line, and THEN colons between the data returned be info().

------------------
--
MIDN 4/C PINYAN, NROTCURPI, USNR