On Fri, Aug 11, 2000 at 04:53:01PM -0500, Jarkko Hietaniemi wrote:
> On Fri, Aug 11, 2000 at 04:48:12PM -0500, David L. Nicol wrote:
> > It's a vast and contrived joke, right?
>
> If it is, someone has really gone into some trouble:
>
> http://www.cobolscript.com/samples.htm
Looks real to me, but I've never used COBOL. :-)
A CGI based DNS resolver in only 117 lines. We *must* be doing
something wrong:
[...]
000096 * Display all hostent-address elements from inside inline PERFORM loop
000097 PERFORM VARYING counter FROM 1 BY 1 UNTIL counter > 8
000098 DISPLAY `<TR BGCOLOR="lightblue">`
000099 DISPLAY `<TD>TCPIP-HOSTENT-ADDRESS(` & counter & `): </TD>`
000100 DISPLAY `<TD>` & TCPIP-HOSTENT-ADDRESS(counter) & ` </TD>`
000101 DISPLAY `</TR>`
000102 END-PERFORM.
[...]
Looks like Perl goofed up bigtime with <1 statement per line, and
simple scalar interpolation.
Z.
