A bit of fun with pack/unpack

My first, humble attempt at writing (intentionally) obfuscated code:

use strict;
use warnings;

@==map{unpack('B24',pack('V',$_))}(12580855,16776063,103792,10764419,8
+561235,856483,1974885);
foreach$"($[..23){$:=$[;foreach$\($[..6){$:.=substr($=[$\],$",!$[)}pri
+nt(pack('B8',$:))}print$/;
[download]

-- FloydATC

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

Comment on A bit of fun with pack/unpack Download Code

Replies are listed 'Best First'.
Re: A bit of fun with pack/unpack by moritz (Cardinal) on Jun 28, 2013 at 17:17 UTC
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	[reply] [d/l]
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]
Re: A bit of fun with pack/unpack by perlaintdead (Scribe) on Aug 24, 2013 at 01:59 UTC
Not too bad. I would suggest reading documentation on functions and finding the little know/used parts of those functions and also thinks about what weird things you can do with them.	[reply]