NSIS (Nullsoft Scriptable安装系统)有StrCmp指令:

StrCmp str1 str2 jump_if_equal [jump_if_not_equal] 比较str1和str2(不区分大小写)。如果str1和str2相等，则Gotos jump_if_equal，否则Gotos jump_if_not_equal。 StrCmp $0“一个字符串”0 +3 DetailPrint '$$0 == "a string"' 转到+ 2 DetailPrint '$$0 != "a string"'

锦上添花:jump_if_equal和jump_if_not_equal也可以是负数。但我猜你们已经从正数前面的+符号中算出来了。我不记得这是强制性的，还是只是一个可怕的惯例。

这基本上结合了最差的BASIC和最差的Assembler。

早期的FORTRAN，空格不重要。(anti-Python !)

DO 20 I = 1, 10

含义:从这里循环到第20行，I从1到10。

DO 20 I = 1. 10

含义:将1.10分配给名为DO20I的变量。

有传言说这个漏洞毁了一个太空探测器。

Perl文件句柄样式的操作符调用。

一开始是有的

print "foo", "bar", "baz"; # to stdout
print STDERR "foo", "bar", "baz";

注意没有逗号，这样你就知道这是要打印到的文件句柄，而不是要以字符串化方式打印的文件句柄。这是一个肮脏的黑客。

语言升级开始了，他们制作了适当的OO文件句柄，并将x FOO y, z, abc转换为FOO->x(y, z, abc)。有点可爱。相同的print语句有效地运行

STDERR->print("foo", "bar", "baz");

大多数情况下，当你错过一个逗号时，或者尝试运行hashof $a， $b， $c(不带括号的子例程调用)之类的东西时，你会注意到这一点，而忘记从它的实用程序包中将hashof函数导入到你的命名空间中，你会得到一个奇怪的错误消息，关于“无法通过字符串$a的包内容调用方法'hashof'”。

Perl充满了奇怪但整洁的特性。

If可以用在语句之前或之后，就像这样:

print "Hello World" if $a > 1;    
if ($a > 1) { print "Hello World"; }

foreach也是如此:

print "Hello $_!\n" foreach qw(world Dolly nurse);

在C:

warning C4013: 'myfunc' undefined; assuming extern returning int

我记得由于某些原因没有看到警告(在一些遗留代码中有太多警告?)，并且困惑于为什么从int转换会在使用非int返回函数时导致编译器错误。

编译器假设这样的东西是相当出乎意料的。

C的多个名称空间:

typedef int i;

void foo()
{
    struct i {i i;} i;
    i: i.i = 3;
    printf( "%i\n", i.i);
}

或与字符:

typedef char c;

void foo()
{
    struct c {c c;} c;
    c: c.c = 'c';
    printf( "%c\n", c.c);
}