Very Computer

I decided to convert a few file systems on a HP-UX box from hfs-format
to vxfs-format, and at the same time rename the disks and rearrange
the directories between them.

While moving the directories accross disks, I goofed the file
modification times by using just 'cpio -pdx' (no '-m' option).  I
don't know what I was thinking. Two many balls in the air at the same
time, I'd suppose.

Now, I could restore all the directories from backup tapes, but it
would feel safer and also be easier to have a way to just fix the file
timestamps, because the directories do not reside under the same mount
points anymore, and especially because the users have of course
started updating the files.

So, does anyone have or know about a script which can compare the
contents of two directory trees, say A and B, and set the timestamps
of files in A to those of the respective files in B, if the file
contents are identical ?

Or does an old man need to see the true light, re-focus his
aspirations, and strive to become _a perl hacker_ ?

-Tapio.

Quote:> So, does anyone have or know about a script which can compare the
> contents of two directory trees, say A and B, and set the timestamps
> of files in A to those of the respective files in B, if the file
> contents are identical ?

Good luck,
Moshe

--

Geek code v3.12 (www.geekcode.com):
GCS/E d- s+:-- a-- C++$ UL++>+++$ P+>++ L+++>$ E--- W+ N++ w--
!O M-- V? PS+ PE Y+ !PGP t 5? X+ R- tv b- DI+ D+ G e>++ h r y

Tapio> So, does anyone have or know about a script which can compare the
Tapio> contents of two directory trees, say A and B, and set the timestamps
Tapio> of files in A to those of the respective files in B, if the file
Tapio> contents are identical ?

This is a somewhat incomplete specification (like, do you really wanna
restore a-times?, and can you afford ctime updates on all the files?),
but you might want to look at the last program in:

        http://www.stonehenge.com/merlyn/UnixReview/col16.html

and then mix that with File::Compare from the CPAN to see if it's
identical, and then mix that with the stat() operator on the source
to get atime/mtime and utime() on the destination file.

Probably about 20 minutes of work (for me :).  Hope it's less than
2 hours for you. :)

print "Just another Perl hacker,"

--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095

Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!

    cd /goofed/dir; find . | xargs -n1 -i touch -r /backup/dir/'{}' '{}'

You may want to echo first instead of touch blindly.

If the conditions don't hold:  (a) - sprinkle with some more quotes; (b) - if
the referenced file doesn't exist in the backup, the point is moot.

Regards,
--
Michael Sternberg                        | Uni-GH Paderborn
http://www.phys.uni-paderborn.de/~stern/ | FB6 Theoretische Physik
phone: +49-(0)5251-60-2329   fax: -3435  | 33098 Paderborn, Germany
"Who disturrrbs me at this time?"  << Zaphod Beeblebrox IV >>     <*>