JAPHスクリプト

狭義には、80カラムの場合で4行以下で書かねばならない、とされる。

1990年代初頭に、「初めてのPerl」の著者であるランダル・シュワルツ(Randal L. Schwartz)が始めたと伝えられており、Usenetのperlニューズグループでよく見られる。

ちょっとしたPerlの技巧を凝らしたものから、ラインノイズとしか思えないような暗号めいたもの、IOCCCかと思うようなPerlで絵を描いているようなものまで、様々なものが見られる。

最後に "," が付くのが正式である。

簡単なJAPHスクリプトの例。

1. Randal L. Schwartzの作品の例1

   print reverse split(/\/*/,",rekcah lreP rehtona tsuJ")

2. Randal L. Schwartzの作品の例2

   $_=q(q-q:!print "Just another Perl hacker," :-) ;-7 while$_=eval

3. Abigailの作品の例

   $_ = "\x3C\x3C\x45\x4F\x54"; s/<<EOT/<<EOT/e; print;

   Just another Perl Hacker

   EOT

   # 注: 出力メッセージはオリジナルのまま