#!/usr/bin/perl -w

#w zadanym drzewie kat nalexy znalexc dowiazanie symboliczne do zadaneog
#obiektu i wyswietlich do nich (linkow) wzglena sciezke (wzgledem zadanego dzrewa)

use strict;
use warnings;
use POSIX; use File::Find;
use Cwd "abs_path";
use File::Spec;

my $sciezka=$ARGV[0];
my $dowiazanie=$ARGV[1];

my $sciezka_dowiazania= abs_path($dowiazanie);
my $sciezka_aktualna="";

find(\&Wanted, $sciezka);


sub Wanted{
	if (-l $_){
		my $x = $File::Find::name;
		$sciezka_aktualna=abs_path($_);
		if($sciezka_aktualna eq $sciezka_dowiazania){
			print("$x\n");
		}
	}
}