Re^2: Finding out whether two directories are the same (insert)

Thanks for filling in those details, Corion. Now I can just skip to the crazy ideas:

my $rand= md5_hash_hex( rand() . $$ . $x . "super secret" );
mkdir( "$x/$rand" );
if( -d "$y/$rand" ) {
    warn "$x == $y\n";
}
rmdir( "$x/$rand" );
[download]

I only created a subdirectory instead of a file because it makes for more concise Perl code. Or you could lock a file you find in $x and see if you hold the lock on that file in $y? (But that assumes that all of your file system exporting technologies convey lock information, which is not always the case, of course.) You could create a pipe in one... etc.

- tye

Comment on Re^2: Finding out whether two directories are the same (insert) Download Code

Replies are listed 'Best First'.
Re^3: Finding out whether two directories are the same (insert) by rovf (Priest) on Aug 28, 2008 at 09:44 UTC
Or you could lock a file you find in $x and see if you hold the lock on that file in $y Or, then, I could create a tempfile (File::Temp) in one, and see whether the tempfile exists in the other!!! -- Ronald Fischer <ynnor@mm.st>	[reply]
Re^4: Finding out whether two directories are the same (insert) by oko1 (Deacon) on Aug 28, 2008 at 13:54 UTC
rovf++ - this may well be the most portable idea of all. There is a very small chance of failure in weird setups like AFS, in which synchronization between the exported and the local dir may happen days apart, but that's a real stretch. -- Human history becomes more and more a race between education and catastrophe. -- HG Wells	[reply]
Re^4: Finding out whether two directories are the same (insert) by linuxer (Curate) on Aug 28, 2008 at 15:09 UTC
You should not forget to check, if the file creation was successful. If you don't have permission to create the file and you don't check that, your check for existence might lead to a wrong conclusion!	[reply]
Re^5: Finding out whether two directories are the same (insert) by rovf (Priest) on Aug 29, 2008 at 07:53 UTC
You should not forget to check, if the file creation was successful. If I use `File::Temp::tempfile`, this throws an exception if it can't create the file, so checking must be done by wrapping it into an eval block and testing `$@` afterwards. -- Ronald Fischer <ynnor@mm.st>	[reply] [d/l] [select]