Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Compare the contents of directory with the contents of file

by repson (Chaplain)
on Feb 24, 2001 at 06:55 UTC ( #60600=note: print w/ replies, xml ) Need Help??


in reply to Compare the contents of directory with the contents of file

I guess you might be storing the list of contents of a directory in a flat file, and want to check if the current contents differ from the stored record.

In that case I would build a hash of the lines of the file like so:

%files = map { tr/\015\012//d; ($_,1); } (<FILE>);

Where FILE is an already open filehandle.
Then I would loop over the directory like so (where DIR comes from opendir):

while (defined($_ = readdir(DIR))) { next if /^\.\.?$/; unless (delete $files{$_}) { print "New: $_\n"; } }
Reporting things that weren't in the file and removing the others from the hash.
And finally reporting thing from the file that are no longer in the directory:
for (keys %files) { print "Gone: $_\n"; }
Of course if you are not asking for that, then your question needs clarification.

2001-03-04 Edit by Corion : Removed an erroneous <CODE> tag


Comment on Re: Compare the contents of directory with the contents of file
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://60600]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (11)
As of 2014-08-22 12:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (156 votes), past polls