シンボリックリンクのリンク先を取得する
readlink
は EXPR に指定されたシンボリックリンクの値を返します。
システムエラーの場合は未定義値を返し、$! にエラーメッセージをセットします。
EXPR が省略された場合は $_ が適用されます。
if ( my $val = readlink '/usr/bin/vim' ) {
print $val, "\n"; # /etc/alternatives/vim
}