On Wednesday, Nov 5, 2003, at 23:12 US/Pacific, Sara wrote: [..]
[..]
foreach my $line(@lines) { chomp $line; my ($name, $id); ($name, $id) = split (/\|/, $line); if ($removeby > &date_to_delete($id)){next;} print DB "$line\n"; } close DB;
that's the operable part of your problem, it is in this foreach loop that the decision is made whether code is "deletable" - hence
if ( $removeby > &date_to_delete($id)) { print SAVEDB "$line\n"; next; }
and just make sure that you did the appropriate open() for that file handle, etc...
ciao drieux
---
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]