Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

JAPH Made Entirely of Colons

by ColonelPanic (Friar)
on Nov 28, 2012 at 08:31 UTC ( #1005978=obfuscated: print w/ replies, xml ) Need Help??

Inspired by tobyink's recent post...

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


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

Comment on JAPH Made Entirely of Colons
Download Code
Re: JAPH Made Entirely of Colons
by choroba (Abbot) on Nov 28, 2012 at 09:26 UTC
    Isn't it missing a final : (or ;) in the output?
    لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
      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
Re: JAPH Made Entirely of Colons
by blackle (Beadle) on Nov 28, 2012 at 15:39 UTC

    Just another colon hacker!

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 $_;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://1005978]
Front-paged by Arunbear
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2014-11-26 22:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (174 votes), past polls