我是perl的新人.我正在从一本书中学习,其中一个例子就在那里.我无法找到问题所在.
use 5.010;
greet( 'Fred' );
greet( 'Barney' );
sub greet {
state $last_person;
my $name = shift;
print "Hi $name! ";
# This is the error line:
if( defined $last_person ) {
print "$last_person is also here!\n";
} else {
print "You are the first one here!\n"
}
$last_person = $name;
}
Run Code Online (Sandbox Code Playgroud)
它在ch4_3.pl上的未定义值上给出了"无法调用方法"状态的错误.