Re^2: Following symlinks manually

Yes, much harder ;-)

Try this at the shell:

mkdir a
mkdir b
ln -s a S
ln -s ../b S/S
touch b/foo
ln -s S/foo foo
ln -s S/foo S/foo
[download]

Now, take a look around for a bit. And then try your chase_links on foo.

perl -e 'my $file = shift; while(defined(my $link = readlink $file)) {
+ print "LINK: $file\n"; $file = $link; sleep 1; } print "NOT LINK: $f
+ile\n"' foo
[download]

Note the sleep in there - I did that to make it easier to kill, 'cuz it's going to go on forever.

One needs to keep careful track of current directories to figure out where the relative links are actually relative to.

Comment on Re^2: Following symlinks manually Select or Download Code

Replies are listed 'Best First'.
Re^3: Following symlinks manually by davidrw (Prior) on Jan 15, 2007 at 23:06 UTC
A CPAN search on 'symbolic links' found File::Spec::Link in the File::Copy::Link distro: `perl -MFile::Spec::Link -le 'print File::Spec::Link->resolve_all(shift +)' foo` [download] It returns `b/foo` for Tanktalus's example setup	[reply] [d/l] [select]
Re^4: Following symlinks manually by Tanktalus (Canon) on Jan 16, 2007 at 00:20 UTC
A cursory glance at File::Spec::Link says it probably will work. I'll go away now to test it. Thanks. I searched CPAN, but coming up with the right search terms is always key! (...) Yes, that looks right. I think my solution is something like this: `use File::Spec::Link; my $curlink = shift; my $linkto; while ( ($linkto = readlink($curlink)) and $linkto =~ m:^S/: ) { print "from $curlink "; $curlink = File::Spec::Link->linked($curlink); print "to $curlink\n"; } if (-l $curlink) { # do stuff with readlink($curlink) } else { # do stuff with $curlink (now a file) }` [download] Thanks!	[reply] [d/l]