http://www.perlmonks.org?node_id=1041292


in reply to A bit of fun with pack/unpack

You can shave off a few characters by not using parens, and the blockless form of map: 

use strict;
use warnings;

@==map unpack('B24',pack'V',$_),12580855,16776063,103792,10764419,8561
+235,856483,1974885;
for$"($[..23){$:=$[;for$\($[..6){$:.=substr $=[$\],$",!$[}print pack'B
+8',$:}print$/;

[download]
Perl 6 - the future is here, just unevenly distributed

Replies are listed 'Best First'.
Re^2: A bit of fun with pack/unpack
by FloydATC (Deacon) on Jun 30, 2013 at 12:04 UTC

    That's so much better, thanks for the tip :-D

    -- FloydATC

    Time flies when you don't know what you're doing

[reply]
[d/l]

In Section Obfuscated Code