perl - 在没有 readlink 实用程序的情况下解析符号链接(symbolic link)

Question

我正在尝试使用 perl one liner 在 unix 命令行管道中使用正则表达式匹配来打印字符串。

ls -l/APPL

给出输出

lrwxrwxrwx 1 root system 4 Nov 27 12:07/APPL -\>/PRD

我的目标是打印'PRD'

我正在使用的命令

ls -l/APPL | perl -ne 'print "$1\\n"if/\/APPL\s\S+\s\s\/(\S+)\s/'

我用正则表达式调试器跟踪它 https://regex101.com/看起来它在 \/(\S+)\s

处丢失了它

我在没有 readlink 命令行实用程序的系统上使用 AIX。我知道我可以使用 awk，但这里不是这种情况。

Answer 1

打印符号链接(symbolic link)的值:

readlink /APPL

perl -le'print readlink( $ARGV[0] )' /APPL

转换为解析所有符号链接(symbolic link)(如果有)的绝对路径:

readlink -e /APPL

perl -MCwd=abs_path -le'print abs_path( $ARGV[0] )' /APPL

perl -le'use Cwd qw( abs_path ); print abs_path( $ARGV[0] )' /APPL