perl写子程序持久性私有变量state声明符报错的原因

学习perl子程序这一章，有一个习题是这样的：

写一个名为greet的子程序，给定人名作参数时，打印出欢迎信息，告诉所有新来人之前已经迎接了那些人：

例如：

greet("A");

greet("B");

greet("C");

按照语句的顺序，应该打印出：

Hi  A！You are the first one here!

Hi  B!   I have seen :A

Hi  C!   I have seen:A B

初次编写代码如下：

#!/usr/bin/perl -w
use strict;
greet('A');
greet('B');
greet('C');
sub greet{
	state @names;
	my $name = shift;
	print "Hi $name! ";
	if(@names){
		print "I have seen: @names\n";
	}
	else{
		print "You are the first one here!\n";
	}
	push @names,$name;
}

这样会报错，提示列表量@names有错。

解决办法：第三行加入 use feature ‘state’，运行成功。