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.

Reply via email to