Unless your ok with just using chop on the result — at which point it will only work if the input length is odd — it is impossible to recreate your original data since multiple inputs encode identically.
$ perl -e'print pack "H*", "abc";' | od -t x1
0000000 ab c0
0000002
$ perl -e'print pack "H*", "abc0";' | od -t x1
0000000 ab c0
0000002
If you don't care about preserving leading zeroes, you can use
my $bin = pack("H*", ( length($hex) % 2 ? '0' : '' ).$hex);
...
( my $hex = unpack('H*', $bin) ) =~ s/^0+(?!\z)//;
If you don't care about preserving leading zeroes, you can use
my $bin = pack("H*", "".reverse $hex);
...
( my $hex = reverse unpack('H*', $bin) ) =~ s/^0+(?!\z)//;
If you do care about preserving leading zeroes, you can use
my $bin = pack("NH*", length($hex), $hex)
...
my ($length, $hex) = unpack('NH*', $bin);
substr($hex, $length, length($hex), '');
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.