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详细解释

在找函数吗?为什么不是一门语言呢?

我喜欢PHP，但它总是这样构建:“哦，糟了!我忘了这个!让我们在函数"中添加另一个参数，结果如下:

Str_replace ($search， $replace， $subject…) Strstr ($subject， $search，…)

注意额外的下划线和参数的不同顺序。

这里还有一些东西

$a = array( 'a', 'b', 'c', 'd');

print_r($a); //Prints array( 0 => 'a', 1 => 'b',    2 => 'c', 3 => 'd');
unset($a[2]); //Destroys the element 2 of the list
print_r($a); //Prints array( 0 => 'a', 1 => 'b',    3 => 'd');

在PHP中，字符串和函数指针一样好:

$x = "foo";
function foo(){ echo "wtf"; }
$x(); # "wtf"

不幸的是，这并不管用:

"foo"();

转变;

有时你会在perl方法的第一行中看到它来读取self指针

闲聊：

在类Test中有一个类方法，返回一个常量字符串:

method1
    ^ 'niko'

无论发生什么，这个方法都会不断返回字符串'niko'。但事实并非如此。

s := Test method1 

(设置为“niko”。)

s at: 4 put: $i.

(设置为“niki”。)

s := Test method1

(再次设置为“niki”。)

因此，第二行代码永久地将method1更改为返回'niki'而不是'niko'，即使方法的源代码没有更新。

在Scala中，没有操作符，只有方法。所以a + b - c实际上等于a +(b) -(c)在这里，它等于Smalltalk。但是，与Smalltalk不同的是，它考虑了优先级。规则基于第一个字符，因此一个假设的方法*+将优先于一个叫做+*的方法。做了一个例外，以便任何以=结尾的方法都将具有与==——含义相同的优先级!!和!=(非假设方法)具有不同的优先级。

所有ASCII字母的优先级最低，但所有非ASCII (unicode)字符的优先级最高。如果你写了一个比较两个int型的方法，那么2 + 2 = 1 + 3将会编译并为真。如果你用葡萄牙语写é，那么2 + 2 é 1 + 3会导致错误，因为它会看到2 + (2 é 1) + 3。

而且，在Scala中操作符的WTF中，所有以:结尾的方法都是右关联的，而不是左关联的。这意味着1::2::Nil等价于Nil.::(2).::(1)而不是1.::(2).::(Nil)。