有一个perl程序，中state的用法错误

state这个是在perl

5.0.10里面提供的功能，

需要明团笑确指明，才可以使用，如何指明:

加入这行:

use

feature

qw(state)

或者加宽漏入这行:

use

5.010

#!/usr/bin/perl

use

strict

use

5.010

sub

greet{

state

@people

my

$num

foreach

(@_){

push

(@people,

$_)

}

$num

=

@people

if($num

==

1){

print

"\n你是第一个来的人!!\n"

}else{

print

"\n$people[$#people-1]已经比你先到了

\n"

}

}

###开始进行一些测试#########################

&greet("塌巧含tom")

&greet("Lily")

&greet("wangzi")

========================

你是第一个来的人!!

tom已经比你先到了

Lily已经比你先到了

cat。state是一款伍激很好用的统简橘裂计软件，state软件中的估计命令就是cat指令，state软件具有很强的程序语言功能，这给用户提供了一个广阔的开发应用的天地，用户可以充分拦闭发挥自己的聪明才智，熟练应用各种技巧，真正做到随心所欲。

---