How to convert sequence U + XXXXX to character in perl?

it

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

prints

á

How to achieve to get the same thing with the following:

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

+3

kobame June 26. 15 at 10:18

source to share

4 answers

Use charnames :

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

You can also use eval

if you can control what comes in as input:

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

+4

choroba June 26. 15 at 10:27

source to share

Pure basic Perl solution:

echo "U+00E1" | perl -C -nE 'say chr(hex) if s/U\+//'

Please don't use unsafe ( eval

) solutions like:

echo "U+00E1" | perl -C -nE 's/U\+/0x/;eval qq{say chr($_)}'

+2

Hynek -Pichi- Vychodil June 26. 15 at 10:53

source to share

Using pack

echo U+0041 U+0042 U+0043 U+00E1 | perl -ne"print pack 'U', hex for /\p{hex}+/g"

Output

ABCá

+1

Borodin June 26. 15 at 17:34

source to share

echo "U+00E1" | perl -CO -lnE 'eval "\$a=\"\\N{$_}\";"; say $a;'

0

frhack June 26. 15 at 10:36

source to share

All Articles