Howto convert hex to string

[bh_perl]

Hi, I'm very new in perl programming, anybody can guide me how to convert hex to string, as example : 84 67 49 67 83 50 79 ====> TC1CS2O

[Tomte]

This data isn't hex, but decimal (according to man ascii anyway)

$> perl -e 'print pack("i*", $_) for(qw/84 67 49 67 83 50 79/)'
TC1CS2O

If you have really hex-values, change i to h

perl -e 'print pack("h*", $_) for(qw/H E X V A L U E S/)'

for a closer look, read perldoc -f pack.

regards,
tomte

---

Hlade's Law:

If you have a difficult task, give it to a lazy person --
they will find an easier way to do it.

[broquaint]

Or simpler still

shell> perl -le 'print map chr, qw/84 67 49 67 83 50 79/'
TC1CS2O

And if you're dealing with hex values

shell> perl -le 'print map { chr hex } qw/54 43 31 43 53 32 4f/'
TC1CS2O

See. map, chr and hex for more info.
HTH

_________
broquaint

[jmcnamara]

In the example that you have shown the characters are in decimal and not hex. To convert them use chr:

    #!/usr/bin/perl -wl

    my @nums  = qw(84 67 49 67 83 50 79);
    my @chars = map {chr} @nums;

    print join '', @chars;

    __END__
    Prints:

    TC1CS2O

If the numbers were in hex you could convert them with hex:

    my @chars = map {chr hex} @nums;

--
John.

[BrowserUk]

Easier still? Use 'C*' with pack.

perl58 -e" print pack 'C*',  qw[84 67 49 67 83 50 79] ";
TC1CS2O

Not that it matters, but its a sight quicker than map{ chr } @chars; :)

---

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller

[crabbdean]

This post helped me with something. So giving back graciously (as an adjunct to this topic) can also convert to binary like this


#!perl
use strict;
use warnings;
map { print unpack "B*", chr hex } qw\25 00 53 00 79 00 73 00 74 00 65
+ 00 6d 00 52 00 6f 00 6f 00 74 00 25 00 5c 00 73 00 79 00 73 00 74 00
+ 65 00 6d 00 33 00 32 00 5c 00 53 00 48 00 45 00 4c 00 4c 00 33 00 32
+ 00 2e 00 64 00 6c 00 6c 00 00 00\;