Oops...
> if $dev1 != $dev2 and $inode1 != $inode2
should be:
if not $dev1 == $dev2 && $inode1 == $inode2
> -----Original Message-----
> From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, April 25, 2002 10:33 AM
> To: Beginners (E-mail)
> Subject: Advice and suggestions needed for difftree script
>
>
> ***Okay this is the situation:
>
> I have a main directory "tree" which has similar directories
> "branch" from
> the trunk but links back to other branches or the main tree.
>
> I want to know what files are different between two branches
> or a branch and
> the tree.
>
> ***What I have so far:
>
> I have written a perlscript to do this already, but I want to make it
> "smarter" and faster.
> I am using File::Find to recurse the first tree.
>
> Foreach file:
> stat file for device number, and inode number ($dev1, $inode1)
> it checks if a file by the same name/path exists in the
> second tree
> (using -f $file)
> If it exists...
> stat second file (using stat _ since I did a -f on it
> already) for
> device number, and inode number ($dev2, $inode2)
> if $dev1 != $dev2 and $inode1 != $inode2
> do a qx/diff -h -w $file1 and $file2/ and if
> something is
> returned there is a difference.
> else one or both files are linked to the same file so
> no difference.
> If it doesn't exist...
> oh well store missing files in an array print later.
>
> Recurse second tree just looking for files that are missing
> from the first
> tree.
>
> ***Questions:
> Good algorithm? or is there something better? you can just
> correct above.
> Is there a way just to look for diff (ignoring whitespace) in the file
> better than using qx/diff -w -h/?
>
> Nikola Janceski
>
> I feel like an outsider... on the inside.
> -- Nicky J. from da' Bronx
>
>
> --------------------------------------------------------------
> --------------
> --------------------
> The views and opinions expressed in this email message are
> the sender's
> own, and do not necessarily represent the views and opinions of Summit
> Systems Inc.
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
----------------------------------------------------------------------------
--------------------
The views and opinions expressed in this email message are the sender's
own, and do not necessarily represent the views and opinions of Summit
Systems Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
