Question

PERL小骆驼书里的问题

就是子程序那章节里第4题，问候一个人并且告知他是第几个来的，并告诉他前一个人是谁。我按照答案运行，告知“can't call method 'state' on an undefined value”，怎么回事？？
greet('Fred');
greet('Barney');
sub greet{
state $last_person;
my $name= shift;
print"Hi,$name !";
if (defined $last_person){
print "$last_person is also here";
}
else{
print" you are the first here!";
}$last_person=$name;
}

Answer 1

state这个是在perl 5.0.10里面提供的功能，
需要明确指明，才可以使用，如何指明：
加入这行：
use feature qw(state);
或者加入这行：
use 5.010;
from
http://zhidao.baidu.com/question/235801802.html

Answer 2

$last_person 在greet函数执行之前没有赋值