Re: Dying for a Good Japh

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.

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

Replies are listed 'Best First'.
Re^2: Dying for a Good Japh by liverpole (Monsignor) on Jan 30, 2006 at 10:57 UTC
Thanks for the good analysis ++. Read more... (915 Bytes)	[reply]
Re^3: Dying for a Good Japh by tweetiepooh (Hermit) on Jan 31, 2006 at 05:41 UTC
Read more... (130 Bytes)	[reply]
Re^4: Dying for a Good Japh by liverpole (Monsignor) on Jan 31, 2006 at 10:30 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"	[reply]
Re^5: Dying for a Good Japh by tweetiepooh (Hermit) on Feb 02, 2006 at 05:35 UTC

• hippo

• erzuuli

‥ Anonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.


There's more than one way to do things
	PerlMonks