Anonymous

#!/usr/bin/perl -w


use strict;
use File::Find ();

my $ORACLE_HOME="/usr/home/mark";

use vars qw/*name *dir *prune/;
    *name = *File::Find::fullname;
    *dir = *File::Find::dir;
    *prune = *File::Find::prune;

sub wanted;

# Traverse desired filesystems
File::Find::find({wanted => \&wanted, follow => 1}, $ORACLE_HOME);
exit;

sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid);

    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    -l _
    && print("$name\n");
}