Adding more info

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