Re: bin2hex converter

Eh, is there a reason not to use pack/unpack? Assuming $_ contains a multiple of 8 bits (else, prepad with 0's), the following converts binairy to hexadecimal:

    $hex = unpack ("H*", pack ("B*", $_));
[download]

-- Abigail

Comment on Re: bin2hex converter Download Code

Replies are listed 'Best First'.
Re: Re: bin2hex converter by Anonymous Monk on Jun 10, 2001 at 23:32 UTC
No reason in particular. . . just trying it for fun. I was seeing how small I could get the code w/o using pack/unpack/modules	[reply]
Re: bin2hex converter by Abigail (Deacon) on Jun 11, 2001 at 00:12 UTC
Oh, you wanted to play golf? Well, how about: `s/(.{1,4})(?=(?:.{4})*$)/sprintf"%x",eval"0b$1"/eg;` [download] -- Abigail	[reply] [d/l]
Re^2: bin2hex converter by Anonymous Monk on Sep 05, 2014 at 12:52 UTC
($;,$_,$\|,$\)=("Yoose\x7FcdMcpk+"," "x17,1,"\r"); {vec($_=>1+$"=>$^F<<$^F)=ord($/^substr$;=>$"=int rand 16=>1); print&&select$,,$,,$,,$\|/($\|+tr/ //c);redo if y/ //>$^F*2};	[reply]