Puede convertir rutas relativas en rutas completas usando readlink -f foo
. Así que harías algo como:
ln -s $(readlink -f $origlink) $newlink
rm $origlink
EDITAR:
Me di cuenta de que desea mantener los caminos relativos. En este caso, después de mover el enlace, puede usar symlinks -c
para volver a convertir las rutas absolutas en rutas relativas.
Este es un perl
solución que conserva rutas relativas:
use strictures;
use File::Copy qw(mv);
use Getopt::Long qw(GetOptions);
use Path::Class qw(file);
use autodie qw(:all GetOptions mv);
my $target;
GetOptions('target-directory=s' => \$target);
die "$0 -t target_dir symlink1 symlink2 symlink3\n" unless $target && -d $target;
for (@ARGV) {
unless (-l $_) {
warn "$_ is not a symlink\n";
next;
}
my $newlink = file(readlink $_)->relative($target)->stringify;
unlink $_;
symlink $newlink, $_;
mv $_, $target;
}