Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

What does $^K do ?

by ChOas (Curate)
on Jan 19, 2001 at 13:26 UTC ( [id://52959]=obfuscated: print w/replies, xml ) Need Help??

Hey People!

I ran into some problems with this one yesterday (see my yesterday question)
But I hope you like this one:
#!/usr/bin/perl -w use strict;$^K=undef;$_=sub{local$/=shift;join"",(split//,$/)[@_]};ope +n $a,$0 ;@_ = <$a>; print lc&$_($_[1],42,25,1,40,71,31,16,43,40,37,18,6,71,68,2,6,32,71,37 +,73,8,13,2,6),"\n";

(Only tested on 5.6)

GreetZ!,
    ChOas

print "profeth still\n" if /bird|devil/;

Replies are listed 'Best First'.
(redmist) Re: What does $^K do ?
by redmist (Deacon) on Jan 19, 2001 at 14:41 UTC
      Actually I have no clue either...

      It did give me the `k` in `hacker though....

      I`m glad it didn`t do anything else ;))

      GreetZ!,
        ChOas

      print "profeth still\n" if /bird|devil/;

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2024-03-19 11:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found