如何将U XXXXX序列转换为perl中的字符？

这个

perl -CO -E 'say "\N{U+00E1}"'

版画

á

如何实现与以下相同：

echo "U+00E1" | perl -CO -lnE 'say what_here($_)'

解决方法

使用 charnames：

echo "U+00E1" | perl -Mcharnames=short -CO -lnE 'say charnames::vianame($_)'

您还可以使用eval,如果您可以控制输入内容：

echo "U+00E1" | perl -CO -lnE 'say eval qq("\\N{$_}")'