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

Re: cjaph - SOLUTION

by domm (Chaplain)
on Mar 04, 2002 at 20:20 UTC ( #149203=note: print w/replies, xml ) Need Help??

in reply to cjaph

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 ...

Replies are listed 'Best First'.
Re: Re: cjaph - SOLUTION
by Darkling (Beadle) on Mar 05, 2002 at 16:18 UTC
    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: note [id://149203]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (1)
As of 2023-06-03 10:17 GMT
Find Nodes?
    Voting Booth?
    How often do you go to conferences?

    Results (12 votes). Check out past polls.