Maintaining a Cache of Hash References

[Tomasi, Chuck]

I'm trying to maintain a cache of hashes to reduce database hits.  What I
want is to determine if I've retrieved the data from the DB before, if so,
just pass back the copy of information used last time, otherwise read it
from the DB and make a note of it.  It would seem I'm not copying the
information in to the $user arg properly.  Something like this:

@UserCache;     # Place to store data already seen
sub GetUser
{
        my ($id, $user)=@_;     # record number and hash reference to
populate

        if (defined($UserCache[$id])) {

        $user = $UserCache[$id];                                            
        return(1);                                                          
        }


        # Code here to read info from the database and put it in $user as
necessary

        # Store the info from the DB for later
        $UserCache[$id] = $user;

        return 1;
}

Thanks

--Chuck

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]