Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

ReJAPH

by throttle (Beadle)
on Nov 03, 2004 at 21:50 UTC ( #405013=obfuscated: print w/replies, xml ) Need Help??

A JAPH using Regex. It does a lot of useless thing with regex, arrays and strings. Doing this i learnt a lot about using regexes.
#!/usr/bin/perl#######rejaph###########by_Throttle################## my @japh;;;;;;;;;;;$s=" ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $a="JustStheSwaySyouSare";$b="AnotherSdaySinSparadise";$c########### ="PerlSwisdom";$d="EverybodySwillShackStheSworld";@just=split('S',$a );$just=join(' ',@just);$just=~/Just/;$just=$&;push(@japh,$just);### push(@japh,$s);@another=split('S',$b);$another=join(' ',@another);## $another=~/Another/;$another=$&;push(@japh,$another);push(@japh,$s); @perl=split('S',$c);$perl=join(' ',@perl);$perl=~/Perl/;$perl=$&;### push(@japh,$perl);push(@japh,$s);@hack=split('S',$d);$hack=join(' ', @hack);$hack=~/hack/;$hack=$&;push(@japh, $hack);push(@japh,"\n");;; my$i;foreach(@japh){print$japh[$i];$i++};#;#,#;#;#;#;#;#;#;#;#;#;#;#

Replies are listed 'Best First'.
Re: ReJAPH
by Jasper (Chaplain) on Nov 09, 2004 at 13:27 UTC
    I'm still not sure if this can be called obfuscated, but it's better than gimme five!
      Well, this wasn't really meant to be obfuscated. It was just a sort of training on regexes

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://405013]
Approved by o0lit3
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2021-10-25 00:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (89 votes). Check out past polls.

    Notices?