代码如下:
$$long="$short=& $big_long_variable_name; /* 取变量$big_long_variable_name的值赋给变量$short，此时$short的值为"print "01 /$short is $short."; /* "/$"是转义序列，表示输出一个美元符号$，下同。本语句的作用是输出：01 $short is print "02 Long is $big_long_variable_name."; /* 输出：02 Long is ?>
05 $short is 06 Long is
09 $short is Programming 10 Long is Programming
?>
print "13 /$short is $short"; /* 虽然销毁了变量$big_long_variable_name，但$short没有受到影响，它的值仍是最近一次被赋予的print "14 Long is $big_long_variable_name."; /* 变量$big_long_variable_name已被销毁，故而无值。输出：14 Long is. */
snow;
?>
$short="No point TEST2 $short"; /* 重新对变量$short赋值。没在$short的后面添加.（点号），但引用了它自身最近一次的值"No point TEST1"。*/
print "16 /$short is $short."; /* 输出：16 $short is No point TEST2 No point TEST1. */