Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses


by Darkling (Beadle)
on Feb 27, 2002 at 03:22 UTC ( #147802=obfuscated: print w/replies, xml ) Need Help??

Ok not at all good but (in my eyes at least) funny.
#!/usr/bin/perl -w use strict; open(F,$0);$_=<F>;chomp;$_.=<F>; s;^.*?\/(..).*?i(.).(.*?)\s.*?\ss(.)(.).(.).*; J$1$4 a$2o$4he$5 $3 ha$6ke$5!;; print;
See if you can guess what the c stands for in cjaph.


Replies are listed 'Best First'.
Re: cjaph - SOLUTION
by domm (Chaplain) on Mar 04, 2002 at 20:20 UTC
    You open the script itself (location stored in $0) on filehandle F and assign the first two lines to $_.

    Then you start a substitution operating on $_, with ; as a delimiter, so de-obfuscated (using a | as delimiter) it looks like:

    $_=~s|^.*?\/(..).*?i(.).(.*?)\s.*?\ss(.)(.).(.).*|J$1$4 a$2o$4he$5 $3 +ha$6ke$5!|;
    You basically scan the first two lines for some stuff:
    1. The two chars following the first slash go into $1 ('us')
      #!/usr/bin/perl -w
      use strict;
    2. Then you scan for the next 'i' and save the following char in $2 ('n')
      #!/usr/bin/perl -w
      use strict;
    3. You skip the next char and save everything up to the next space in $3 ('perl')
      #!/usr/bin/perl -w
      use strict;
    4. You skip to the next space followed by 's' and save the next char in $4 ('t')
      #!/usr/bin/perl -w
      use strict;
    5. The next char goes into $5 ('r')
      #!/usr/bin/perl -w
      use strict;
    6. Then skip one and save the last in $6 ('c')
      #!/usr/bin/perl -w
      use strict;
    and then print the new value of $_.

    But I still don't know what the c in cjaph stands for ...

      Ok. Just to stop everyone from guessing (because I know you've all been worrying about it for days now!) the "c" in cjaph, as is quite obvious from the nature of the japh, stands for "crap".


Log In?

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

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (3)
As of 2023-03-26 15:15 GMT
Find Nodes?
    Voting Booth?
    Which type of climate do you prefer to live in?

    Results (63 votes). Check out past polls.