Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: How in the heck?

by yakko (Friar)
on Mar 17, 2001 at 07:14 UTC ( #65108=note: print w/ replies, xml ) Need Help??


in reply to How in the heck?

All those weird variables can be demystified via perlvar. I'm on my way to doing the same thing myself now. :o)

--
Me spell chucker work grate. Need grandma chicken.


Comment on Re: How in the heck?
Re: Re: How in the heck?
by dneedles2 (Novice) on Mar 17, 2001 at 08:25 UTC
    When high tech doesn't work try low tech. The code:
    #!/opt/CAV1perl/bin/perl $~ = '`'; print "`A "; $_ = $: = $~ | '%'; print "B $_\n"; $; = $^ = '/' | $~; print "C $;\n"; ++$;; print "D $;\n"; $\ = $~ | q[']; print "E $\\n"; ++$;; print "F $;\n"; $: .= ++$;; print "G $:\n"; $/ = ++$;; #print "H $\\n"; ++$\; print "I $\\n"; $_ .= '#' | $~; print "J $_\n"; $, = ++$/; print "K $,\n"; $_ .= '#' | $~; print "J $_\n"; $, = ++$/; print "K $,\n"; $_ .= qq[$\$^$"]; print "L $_\n"; ++$,; print "M $,\n"; $_ .= 'N'; print "P $_\n"; $_ .= qq[$,$;$/$"]; print "Q $_\n"; $_ .= '!.' | $~ . $~; print "R $_\n"; $_ .= qq[$^$/$\$:$"]; print "S $_\n"; $_ .= 'P'; print "T $_\n"; $_ .= $:; print "U $_\n"; $_ .= $^ & '|'; print "V $_\n"; $_ .= $" . $\; print "W $_\n"; $_ .= "$~$~$~" | '!#+'; print "X $_\n"; ++$.; print "Y $.\n"; ++$.; print "Z $.\n"; `$_$:,>&$.`; print "0 $_ AND $: , >& $.\n";
    Produces:
    perl t.pl `A B e C o D p E g gF q gG er gI h hJ ec hK t hL echo hM u hP echo N hQ echo Nust hR echo Nust an hS echo Nust another hT echo Nust another P hU echo Nust another Per hV echo Nust another Perl hW echo Nust another Perl h hX echo Nust another Perl hack hY 1 hZ 2 hNust another Perl hacker, 0 echo Nust another Perl hack AND er , >& 2
    Obviously not perfect but you can figure out what they did.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://65108]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (11)
As of 2014-12-29 12:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (187 votes), past polls