Very Computer

How do I know which hard link belongs to which file. I can't seem to find
a command that will tell me this. Any help on this matter would greatly
be appreciated.

Keith Boruff

--
Alan H. Katz          | MJ Research, Inc.

617-370-8128          | Watertown, MA 02172
                      |

Again, thanks..
Keith Boruff

   #!/bin/csh
   cd /
   tar -cvf /dev/null ./* \
     | grep " link to " \
     | awk '{printf("The file %s is linked to %s\n",$2,$5)}' > linked.files

This will give you a list of all files on your system that are linked to another
file.  This will include both hard and symbolic links.  I also have another one that
lists them the other way around with

   printf("The file %s is linked with %s\n",$5,$2)

that I can pass through sort to give me a list of files with it's associated link
points.

Is it a cpu hog?  You bet.  Is there a better way to do it?  I sure hope so!

Use:  ls -i
This will print the inode with each file.  Any files with the same inode
are hard linked.

Or on some flavors of unix (works on HP, not on Sun) you can use:  
find path -linkedto filename

Tom Sanders

Lee> If you *really* want to know what files are linked to each other, then try this
Lee> little cpu-cycle-killer on for size:

Lee>    #!/bin/csh
Lee>    cd /
Lee>    tar -cvf /dev/null ./* \
Lee>      | grep " link to " \
Lee>      | awk '{printf("The file %s is linked to %s\n",$2,$5)}' > linked.files

Or something a little less cpu-killing:

        #!/usr/bin/perl
        use File::Find;
        find( \&wanted, '/' );
        sub wanted {
                my $name = $File::Find::name;
                my ($dev,$ino) = lstat;
                if (exists $seen{$dev,$ino}) {
                        print "$name is linked with $seen{$dev,$ino}\n";
                } else {
                        $seen{$dev,$ino} = $name;
                }
        }

In fact, when I last checked, File::Find::find runs faster than SunOS
find(1). :-)

Just another Perl hacker,
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying

Web: <A HREF="http://www.teleport.com/~merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me