今天比较清闲，安装配置了Perl，看了看Perl教程一些比较初级的东西，发现很多好玩的东西。
第一个引起我的注意的就是“$”符号，相信熟悉PHP的人都知道。也许Rasmus Lerdorf在最初设计的时候，很多部分都是参照Perl来写的，这只是我的猜测。看到这个让我觉得跟Perl亲近了很多。
第二，$_变量和print函数。比较有意思的是下面这段代码竟然可以执行。
$_ = "这样也可以吗？";
print_r;
第三，if语句，如果if后面只有一条语句，可以有这样奇怪的写法：
print "太奇怪了吧" if($echo);
这就是我们语文课本里所学的倒装吧！
第四，逻辑判断语句，看看这句话你觉得会什么结果：
$a = 0;
$b = $a || "Are you fine?";
print $b;
这个给我的第一印象结果应该是"true"或者"1"。但试验的结果却出乎我的意料结果竟然是“Are you fine?”看来经验注意要不得，还是得安心看文档。
第五，标号。看到这个让我想起当年在学校里学汇编里的goto语句，但Perl的标号却更加的灵活方便，很多语言里不建议使用这个，因为这个可能让程序的可读性变的很差，但恰当的使用的却可以简化程序的编写
print "Content-type: text/plain; charset=gb2312nn";
$min = 9990;
$max = 10000;
$count = 0;
print "一下为<font color="#FF0000"><B>$min</B></font>到<font color="#FF0000"><B>$max</B></font>之间所有质数：<br/>rn";
OUTER:for($i = $min ; $i < $max ; $i++){
for($j = 2; $j <= sqrt($i) ; $j++){
if(($i % $j)==0){
next OUTER;
}
}
print "$i <br/>";
$count++;
}
$min = 9990;
$max = 10000;
$count = 0;
print "一下为<font color="#FF0000"><B>$min</B></font>到<font color="#FF0000"><B>$max</B></font>之间所有质数：<br/>rn";
OUTER:for($i = $min ; $i < $max ; $i++){
for($j = 2; $j <= sqrt($i) ; $j++){
if(($i % $j)==0){
next OUTER;
}
}
print "$i <br/>";
$count++;
}
看看代码是不是简洁很多啊！
看来Perl还是挺好玩的，不过我刚看了不大一会儿，还得继续努力。有兴趣的朋友可以和我交流啊。
