人生第一次见到 COBOL 代码

jmsdnns/webbol: A minimal static web server written in COBOL¹
https://github.com/jmsdnns/webbol/tree/main

Acknowledgments
Built with GnuCOBOL, demonstrating that COBOL can still be used for modern systems programming tasks.

居然写的是 Web 服务器，也不知道是什么神人写的。我以为这语言除了守旧的银行还在使用以外早死翘翘了。

看了一眼语法，我个人很难接受：

• 全大写？
• 大量重复的变量名
• 赋值语法繁琐：MOVE "text/html" TO LS-MIME-TYPE
• 没有 switch-case 大量 if：url-decode.cbl#L91
• 函数调用过于麻烦：CALL "socket" USING BY VALUE 2 BY VALUE 1 BY VALUE 0 webserver.cbl#L51

一堆 BY VALUE、BY REFERENCE 让我想起初学 VB6 的时候的恐惧。

难以想像那个时候的 C 语言的出现是多么的耳目一新、多么的惊艳。