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

Inspired by tobyink's recent post...

use warnings;
use strict;

package   ::::::::::
{$_=q:!:;$::::::::::
=q;:;;sub ::::::::::
{s::@_:}}&::::::::::
($        ::::::::::
.        '::::::::::
',$       ::::::::::
x10);$    ::::::::::   
=q;::;;s. ::::::::::
    .$    ::::::::::
    \.$   ::::::::::
\.' '\.$  ::::::::::
      \.$ ::::::::::
       \.$::::::::::
.gex;s: \n::gx;print

[download]


When's the last time you used duct tape on a duct? --Larry Wall

Replies are listed 'Best First'.
Re: JAPH Made Entirely of Colons
by choroba (Cardinal) on Nov 28, 2012 at 09:26 UTC
    Isn't it missing a final : (or ;) in the output?
    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
      Thanks for pointing out this major design problem with my code ;). Is it better now?


      When's the last time you used duct tape on a duct? --Larry Wall
[reply]
Re: JAPH Made Entirely of Colons
by blackle (Beadle) on Nov 28, 2012 at 15:39 UTC

    Just another colon hacker!

[reply]
[reply]
Re: JAPH Made Entirely of Colons
by Anonymous Monk on Dec 28, 2012 at 18:26 UTC

    not to hard after properly formatting the white space. most confusing thing was the second to last regex.


    solution: 
    #!/usr/bin/perl
$_ = '!';

sub preRegex{
    s//@_/;
}

preRegex(':::::::::::', ':' x 10);

s. ::::::::.::\.::::\.' '\.:: \.:: \.::.gex;

chomp $_;
print $_;

    [download]
[reply]
[d/l]

Back to Obfuscated Code