RE: why rpg and not cobol

No need for comments as it is self-documenting :)

Scott


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Vern Hamberg
Sent: Friday, April 12, 2013 3:21 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: why rpg and not cobol

There are always the Perl Obfuscation Contests. People seem to really
enjoy taking Larry Wall's "natural-language" Pathologically Eclectic
Rubbish Lister and make natural language unintelligible!

Here's an example that slowly displays the text "Just another Perl /
Unix hacker", multiple characters at a time, with delays.

@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona
tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$
f^ord
($p{$_})&6];$p{$_}=/
^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep
rand(2)if/\S/;print

And we think we see bad code? Where are the comments?