Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

JAPH Made Entirely of Colons

by ColonelPanic (Friar)
on Nov 28, 2012 at 08:31 UTC ( [id://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

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?
    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
      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
Domain Nodelet?
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?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (5)
As of 2024-03-28 08:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found