Re: how to print 'normal' string from hex string?

Expanding Eliya's reply slightly.

knoppix@Microknoppix:~$ perl -E ' > $hex = q{4d414a523e576573742d622053544d2d31204d532d41495328434c45415 +229}; > $str = unpack q{a*}, pack q{H*}, $hex; > say $str;' MAJR>West-b STM-1 MS-AIS(CLEAR) knoppix@Microknoppix:~$
[download]

As BrowserUk points out, the unpack here is not necessary.

Cheers,

JohnGG

Comment on Re: how to print 'normal' string from hex string? Download Code

Replies are listed 'Best First'.
Re^2: how to print 'normal' string from hex string? by BrowserUk (Patriarch) on Nov 22, 2011 at 17:54 UTC
What is the `unpack 'a'` bit for? `print pack 'H', "4d414a523e576573742d622053544d2d31204d532d4149532843 +4c45415229";; MAJR>West-b STM-1 MS-AIS(CLEAR)` [download] With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l] [select]
Re^3: how to print 'normal' string from hex string? by johngg (Canon) on Nov 23, 2011 at 11:17 UTC
What is the `unpack 'a'` bit for?* It is a side effect of my still somewhat flaky understanding of pack/unpack or, in other words, completely un-necessary :-( I will update my post. Cheers, JohnGG	[reply] [d/l]