Perl

my %h1 = map { $_ => 1 } qw/foo bar baz/;    // construct an 'is_member' type lookup table
my %h2 = map { "$_" => 1 } qw/foo bar baz/;

第二行是一个语法错误，即使对一个有经验的perl程序员来说，它看起来是一样的。perl的缺点是总是试图做你想做的，而不是你说的。

Duff的C语言设备!

在C语言中，可以将do/while语句与switch语句交错使用。下面是memcpy使用此方法的示例:

void duff_memcpy( char* to, char* from, size_t count ) {
    size_t n = (count+7)/8;
    switch( count%8 ) {
    case 0: do{ *to++ = *from++;
    case 7:     *to++ = *from++;
    case 6:     *to++ = *from++;
    case 5:     *to++ = *from++;
    case 4:     *to++ = *from++;
    case 3:     *to++ = *from++;
    case 2:     *to++ = *from++;
    case 1:     *to++ = *from++;
            }while(--n>0);
    }
}

2000年Perl Journal's obfusated Perl Contest的最佳参赛作品:

#:: ::-| ::-| .-. :||-:: 0-| .-| ::||-| .:|-. :||
open(Q,$0);while(<Q>){if(/^#(.*)$/){for(split('-',$1)){$q=0;for(split){s/\|
/:.:/xg;s/:/../g;$Q=$_?length:$_;$q+=$q?$Q:$Q*20;}print chr($q);}}}print"\n";
#.: ::||-| .||-| :|||-| ::||-| ||-:: :|||-| .:|

代码由作者在http://mysite.verizon.net/les.peters/id2.html详细解释

Malbolge编程语言的完整版本:http://en.wikipedia.org/wiki/Malbolge

这并不是一个奇怪的特性，但从类型安全的角度来看，它确实令人恼火:c#中的数组协方差。

class Foo { }
class Bar : Foo { }
class Baz : Foo { }

Foo[] foo = new Bar[1];
foo[0] = new Baz(); // Oh snap!

我相信这是从Java继承而来的(双关语)。

Haskell又说:

在Haskell中，你可以处理任意大小的文件，就好像它是一个简单的字符串。只有在实际使用字符串时，文件才会被读取。由于Haskell令人难以置信的懒惰，这样的程序将在恒定的空间中运行，而不管文件的大小:

main = interact (>>= \x -> if x == '\n' then "\r\n" else [x])

(这个程序将一个文件从stdin转换为stdout，并将LF替换为CRLF，交互函数将整个stdin输入到一个函数，并将输出移动到stdout。)

这种惰性也可能导致问题，因为如果关闭一个文件句柄，就不能完全shure，不管Haskell是否已经解析了其中的所有数据。