String to hex

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

Replies are listed 'Best First'.
Re: String to hex by Anonymous Monk on Aug 09, 2012 at 13:34 UTC
`$ perl -le " printf qq{0x%04s\n},$_ for unpack '((H4)3)(H)', qq/COM7: +/ " 0x434f 0x4d37 0x003a 0x0000` [download]	[reply] [d/l]
Re^2: String to hex by Anonymous Monk on Aug 09, 2012 at 13:35 UTC
`$ perl -le " printf qq{0x%04s\n},$_ for unpack '((H4)*)(H)', qq/COM7: +/ " 0x434f 0x4d37 0x003a 0x0000` [download]	[reply] [d/l]
Re: String to hex by thundergnat (Deacon) on Aug 09, 2012 at 14:50 UTC
`$string = "COM7:"; $string =~ s/(.)(.)?/sprintf("0x%02X%02X\n",ord($2),ord($1))/seg; print "${string}0x0000\n";` [download] 0x4F43 0x374D 0x003A 0x0000	[reply] [d/l]
Re: String to hex by trizen (Hermit) on Aug 09, 2012 at 14:20 UTC
`use strict; use warnings; my $text = "COM7:"; my @pairs = unpack "(A2)", uc unpack "H", $text; for (my $i = 0 ; $i <= $#pairs ; ++$i) { printf "0x%02s%02s\n", reverse $pairs[$i] \|\| 0, $pairs[++$i] \|\| 0; } print "0x0000\n"; # :-) __END__ 0x4F43 0x374D 0x003A 0x0000` [download]	[reply] [d/l]
Re: String to hex by influx (Beadle) on Aug 09, 2012 at 13:45 UTC
This seems pretty legible `sub str_to_hex { my $str = shift; return "0x" . substr(unpack("H*", $str), 0, 4); } print str_to_hex("COM7") . "\n"; # outputs: 0x434f` [download]	[reply] [d/l]
Re^2: String to hex by Anonymous Monk on Aug 09, 2012 at 13:58 UTC
It needs to produce 4 lines, not just one	[reply]
Re^3: String to hex by influx (Beadle) on Aug 09, 2012 at 14:46 UTC
Eh. Really? OK, well, I would advise against this method, but I was determined to get it working using my original unpack version.. so here goes `sub str_to_hex { my $str = shift; my @h; for my $s (split(/(....)/, unpack("H*", $str))) { if ($s ne '') { if (length($s) < 4) { $s = ("0" x (4 - int(length($s)))) . $s; } push @h, "0x" . $s; } } push @h, "0x0000" while @h < 4; return @h; } for (str_to_hex("COM7:")) { print $_ . "\n"; }` [download] This outputs 0x434f 0x4d37 0x003a 0x0000	[reply] [d/l]
Re: String to hex by johngg (Canon) on Aug 10, 2012 at 23:34 UTC
Well behind the fair on this one but better late than never :-/ `$ perl -E ' > printf qq{0x%04X\n}, $_ for unpack q{n*}, join q{}, > reverse unpack q{(a2)4}, reverse pack q{a8}, q{COM7:};' 0x4F43 0x374D 0x003A 0x0000 $` [download] Cheers, JohnGG	[reply] [d/l]


Don't ask to ask, just ask
	PerlMonks