Perl Hex ASCII pack unpack

waytoperl has asked for the wisdom of the Perl Monks concerning the following question:

trying to convert hex to ascii and was able to convert. Any idea code can be written more efficiently. Please preview.

my $x = 30:30:3a:31:64:3a:69:2d:6f; #in hex
my $x =~ tr/://d;
my $y = hex_to_ascii("$x");
print "$y\n"; #in ascii
[download]

Above can be achieved using one liner? Tried using pack and unpack and closest i can think of was split, conversion and pack. Preview and guide how to correct. Thanks!

my $y = pack ('C*', split/\:/, $x);
[download]

Comment on Perl Hex ASCII pack unpack Select or Download Code

Replies are listed 'Best First'.
Re: Perl Hex ASCII pack unpack by ikegami (Patriarch) on Sep 26, 2014 at 05:21 UTC
I presume you're asking how to get the string of 9 bytes that string represents. `$x =~ tr/://d; my $y = pack('H', $x);` [download] `my $y = pack('H', $x =~ tr/://dr); # 5.14+ required` [download] `(my $y = $x) =~ s/([0-9a-fA-F]{2}):?/chr(hex($1))/eg;` [download] `my $y = $x =~ s/([0-9a-fA-F]{2}):?/chr(hex($1))/egr; # 5.14+ required` [download] `my $y = pack 'C*', map hex, split /:/, $x;` [download] `my $y = join '', map chr hex, split /:/, $x;` [download]	[reply] [d/l] [select]
Re^2: Perl Hex ASCII pack unpack by waytoperl (Beadle) on Sep 26, 2014 at 19:23 UTC
Thanks	[reply]
Re: Perl Hex ASCII pack unpack by Anonymous Monk on Sep 26, 2014 at 07:38 UTC
clean your room :) my $x = 30:30:3a:31:64:3a:69:2d:6f; #in hex Bareword found where operator expected at - line 1, near "3a" (Missing operator before a?) Bareword found where operator expected at - line 1, near "3a" (Missing operator before a?) Bareword found where operator expected at - line 1, near "2d" (Missing operator before d?) Bareword found where operator expected at - line 1, near "6f" (Missing operator before f?) __END__ syntax error at - line 1, near "30:" Execution of - aborted due to compilation errors. [download]	[reply] [d/l]