Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: Dying for a Good Japh

by tweetiepooh (Friar)
on Jan 30, 2006 at 14:45 UTC ( #526456=note: print w/ replies, xml ) Need Help??


in reply to Dying for a Good Japh

Quite nice.

Set a number of environment vars to selected numbers.

Set @INC to carefully constructed rubbish.

Convert @INC to print JAPH in big letters using environments set earlier. This seems to use ANSI/terminal control sequences.

Ask to load a module. This will fail so perl will print out @INC now holding the message.


On Solaris the eval is not needed and the module could be anything.

A nice trick would be to leave the real @INC in place in some form so real modules would work but require "JAPH" would give message.


Comment on Re: Dying for a Good Japh
Re^2: Dying for a Good Japh
by liverpole (Monsignor) on Jan 30, 2006 at 15:57 UTC
            I think there is an implicit "die" in the error that it can't find the module.

        No there isn't.  If eval is used, taking out die will cause the output to cease appearing.  Try it and see...


        @ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (13)
As of 2014-10-23 16:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (126 votes), past polls