Как я могу получить цель символической ссылки в Perl 6?

Question

Вы можете создать символическую ссылку в Perl 6:

my $symlink-path = ...;
$target.symlink: $symlink-path;

Учитывая только символическую ссылку, как вы можете получить целевой путь?

$symlink-path.IO.????

Я ищу точную строкуэто цель, а не любая ее интерпретация (например, .resolve).

Answer 1

Насколько мне известно, в Perl 6 для этого нет эквивалента.

Ближайшая вещь к решению - это zef install P5readlink (https://modules.perl6.org/dist/P5readlink) и использовать readlink, как в случае сPerl 5.

Answer 2

Метод разрешить работает:

 my $target       = "../tmp/file".IO; 
 my $symlink-path = "files".IO;
 $target.symlink: $symlink-path;

 say $symlink-path.resolve;
 say $symlink-path.resolve(:completely) ~~ $target.resolve(:completely);