perlquestion
tanger
<code>
foreach $person (keys %who) {
$time_lastlog = $who{$person};
$tmin = $time - $time_lastlog;
if ($tmin >= 2) {
delete $who{$person}; #deletes person for not being active...the 2 second thing is just so I could test it.
}
else {
$who{$Account::account} = "$time"; #adds member to the list because he aint idle and still active
}
}
</code>
<br><br>
Where the deleting part it doesnt take the key/value pair out of the DBM File? What am I doing wrong?
<br><br>
Thanks,<br>
<p><small>2001-03-03 Edit by [Corion] : Moved from Discussion to SOPW</small></p>