在Perl中(没有“使用严格”或“使用警告”):

if(true==undef)
{
    print "True\n";
}
else{
    print "False\n";
}
if(undef)
{
    print "True\n";
}
else{
    print "False\n";
}
if(true)
{
    print "True\n";
}
else{
    print "False\n";
}

打印:

True
False
True

Perl。

输出“Foo\n”除非$ Foo;

我几年前使用的一个Fortran编译器有一个有趣的特性:(A)数字先存储在高字节;(b)数字按地址传递给子程序;(c)没有在编译时检查长度。

所以你可以写一个这样的程序:(如果我把语法弄乱了，请原谅。我已经很久没有写Fortran了。)

INTEGER*2 FUNCTION TIMESTWO (INTEGER*2 N)
RETURN N*2

... THEN CALL THIS SOMEWHERE WITH A LONG INTEGER ...

INTEGER*4 I, J

I=42
J=TIMESTWO(I)

J的最终值是…零!

为什么?因为传入的值是4个字节，但被调用的函数只查看前两个字节。由于前两个是0，它将0乘以2并返回它。然后将此返回值转换回四个字节。

当我第一次遇到它时，它非常神秘。几乎我传递给某些函数的每个数字都被解释为零!

大约20年前，当我最后一次涉足腮腺炎时，实现有一些奇怪的局限性。当主机MUMPS变得越来越流行时，MUMPS传统上是一种自托管语言:计算机语言、操作系统和数据库在一个包中。

腮腺炎主要是关于它的数据库。本质上，这是一个巨大的多维哈希表，由B*树支持，可以快速访问。语言和数据库之间也没有任何障碍:如果您想在那里存储一些东西，只需在变量前面加上一个符号，表明它将被持久化到备份存储中。

另一方面，文件系统几乎不存在，对它的支持就更少了。我们唯一能做的就是把一个程序从文件中加载到内存中，然后把内存中的内容发送回文件。最好在加载前清空缓冲区，否则它会和之前的东西混在一起。

因此，考虑到它的自托管性质和极其恶劣的文件系统，人们可能会想知道这些程序是如何编辑的。事实上，编辑器是用MUMPS本身编写的——那么，编辑器如何在不重写自己的情况下将程序存储在内存中呢?

好吧，诀窍在于能够以源代码的形式执行变量的内容。然后，编辑器将自己加载到变量中，在变量中执行自己，清除内存，然后在内存中加载、保存和编辑文件，一直从变量中执行。

除此之外，所有命令都可以被缩短为它们的第一个字母(除了Z命令，缩短为两个字母，主要处理文件系统)，还有一个奇怪的事实，比如IF (I)设置了一个变量，然后由ELSE (E)查询——当然，可以被任何介入的I或程序本身覆盖。转念一想，我觉得整个语言就是个垃圾。然而，它有一种奇怪的吸引力。

在Perl中，你可以做到:

my $test = "Hello World";
substr($test, 0, 5) = "Goodbye";

print $test;

这在其他语言中可行吗?

再给JavaScript投一票:

parseInt('08') == 0

因为任何前导为0的数都被解释为八进制(奇怪)，无效的八进制数被计算为0(坏)。我是在8月份发现这一点的，当时我几个月没碰过的代码自己崩溃了。事实证明，它本可以在10月份自行修复。

八进制支持显然已被弃用，所以未来几代的javascript将不会有这个仪式。