RETAS-Logo
RETAS-Logo
This page is not mobile friendly.
Better watch on bigger screen.

computer/programs/useless/japh/japh_4

eval 's=Shell'; eval "echo 'Just another $s Hacker\
'; exit" && 1 for $s = Perl; sub echo { print @_ };

This is a bilingual JAPH.
(More about JAPHs.)

It can be executed with Perl (it then
prints "Just another Perl Hacker") or
with Unix shells like sh, bash or ksh
(printing "Just another Shell Hacker").

Download the source.

A pure Kornshell version is here.