This node: file tree to hash
And this: "du" to hash

both provided some help with my current problem, but, I now have to perform the reverse action. I already have a hash table of files and directories. When I perform a system ls command, I want to remove those entries from the hash.

Using this segment of code form the second thread, the value of $where is printed out. Which means that I can't do a delete($where);

while (@paths) {
    $where = ($where->{shift @paths} ||= {});
}

print Dumper($where);
[download]

A eval solution seems like the path of least resistance, but it also seems like the most insecure method.

Ideas?

Edited 2003-04-08 by Ovid