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

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

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

foreach也是如此:

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

到目前为止，我遇到过的最奇怪的功能是BASIC方言中的“RETURN n”语句(不记得是哪一种了，这是大约28年前的事了)。“n”是可选的，默认为1。它可以是一个正数或负数，指示下一个执行的是与调用GOSUB相关的哪一行。

例如，下面将输出“30”:

10 GOSUB 200
20 PRINT "20"
30 PRINT "30"
100 END
200 RETURN +2

当我必须把一个用这种奇怪的BASIC语言编写的程序翻译成FORTRAN时，我遇到了这个问题。BASIC程序相当多地使用了这个特性，根据不同的条件返回不同的语句，我花了一段时间来理解逻辑流。一旦我理解了它，我就可以编写一个更简单的程序版本。不用说，更简单的FORTRAN版本比原来的BASIC程序bug更少。

Delphi不关心像“word”这样的类型转换，将读取数组arr[0..65535] where pos = 65535: Arr[单词(pos + 10)]

在JavaScript中:

var something = 12;

function nicelyCraftedFunction()
{
  something = 13;
  // ... some other code
  // ... and in Galaxy far, far away this:
  if( false ) // so the block never executes:
  { 
    var something; 
  }
}
nicelyCraftedFunction(); // call of the function

通常你会期望某个变量的值是13。 但在JavaScript中不是这样——变量有函数作用域，所以后面的声明会影响上游的一切。

在使用C/ c++ /Java表示法的语言(如JS)中，你会期望变量具有块范围，而不是像这样…

因此，编译器甚至可以从最终生成的字节码中删除的死代码块仍然会对正常执行的其余代码产生副作用。

因此，在调用函数之后，某些东西仍然是12 -不变的。

在PHP中

var_export('false' == 0);       // true

var_export('false' == true);    // true

var_export('false' == false);   // false

EDIT

正如@Kobi提到的，这可能发生，因为语言将任何值解释为“TRUE”，除了“FALSE”，但在PHP中不是这样，在那里事情比你想象的更奇怪!

这个案例在PHP手册的“字符串转换到数字”一章中有完整的记录，它说:

如果字符串以valid开头 数值数据，这就是值 使用。否则，该值为0 (零)。

这里有一个例子:

print (int) 'zero';    // 0
print (int) 'false';   // 0
// but
print (int) '1 - one'; // 1

附注:我认为这种隐式类型转换弊大于利。

Perl:

可以编写一个完全由标点符号组成的程序。

这是怎么回事?!