你写的最丑陋的代码是什么 - 不是因为你不知道更好,而是因为软件,硬件或公司政策的限制？
由于数据库布局和编程语言的不寻常选择,我曾经构建了一个C程序,它读取SQL数据库结构并生成另一个C程序,该程序读取该数据库并将其备份到文件中,或者将其复制到第二个数据库中共享或多或少相同的列.这是一个怪物笨重的代码生成器.
在90年代末,我不得不在Informix Universal Server Web刀片(又名Illustra web刀片)中编写几个网站
对于那些对这个可恶环境一无所知的人,它迫使你使用我遇到过的最离奇的语言.正如Joel Spolsky所描述的那样
当它确实运行时,它被证明具有我见过的唯一编程语言,如果你可以想象的话,它不是图灵等价的.
更多信息,请访问http://philip.greenspun.com/wtr/illustra-tips.html
以及"简单"if条件的示例:
cond=$(OR,$(NXST,$email),$(NXST,$name),$(NXST,$subject))
它的可怕性质的一个例子是它没有循环的事实.任何形式的.可以通过创建查询并遍历其行来破解循环功能,但这是错误的,这让我感到恶心.
编辑:我已经设法找到一个完整的代码示例.看吧:
<HTML>
<HEAD><TITLE>WINSTART bug</TITLE></HEAD>
<BODY>
<!--- Initialization --->
<?MIVAR NAME=WINSIZE DEFAULT=4>$WINSIZE<?/MIVAR>
<?MIVAR NAME=BEGIN DEFAULT=1>$START<?/MIVAR>
<!--- Definition of Ranges ---->
<?MIVAR NAME=BEGIN>$(IF,$(<,$BEGIN,1),1,$BEGIN)<?/MIVAR>
<?MIVAR NAME=END>$(+,$BEGIN,$WINSIZE)<?/MIVAR>
<!--- Execution --->
<TABLE BORDER>
<?MISQL WINSTART=$BEGIN WINSIZE=$WINSIZE
SQL="select tabname from systables where tabname like 'web%'
order by tabname;">
<TR><TD>$1</TD></TR>
<?/MISQL>
</TABLE>
<BR>
<?MIBLOCK COND="$(>,$BEGIN,1)">
<?MIVAR>
<A HREF=$WEB_HOME?MIval=WINWALK&START=$(-,$BEGIN,$WINSIZE)&WINSIZE=$WINSIZE>
Previous $WINSIZE Rows </A> $(IF,$(<,$MI_ROWCOUNT,$WINSIZE), No More Rows, )
<?/MIVAR>
<?/MIBLOCK>
<?MIBLOCK COND="$(AND,$(>,$END,$WINSIZE),$(>=,$MI_ROWCOUNT,$WINSIZE))">
<?MIVAR>
<A HREF=$WEB_HOME?MIval=WINWALK&START=$END&WINSIZE=$WINSIZE>
Next $WINSIZE Rows </A>
<?/MIVAR>
<?/MIBLOCK>
</BODY>
| 归档时间： |
|
| 查看次数： |
2018 次 |
| 最近记录： |