持久性私有变量

[root@mysql1 perl]# cat 23.pl 
#!/usr/bin/env perl


use strict;
use warnings FATAL => 'all';
use 5.010;


sub marine {
  my $n += 1;
  print "hello, sailor number $n!\n";
}


sub marine1 {
  state $n=0;
  $n+=1;
  print "hello,sailor1 number $n!\n";
}


&marine();
&marine();
&marine();


&marine1();
&marine1();
&marine1();
[root@mysql1 perl]# 
[root@mysql1 perl]# 
[root@mysql1 perl]# ./23.pl   
hello, sailor number 1!
hello, sailor number 1!
hello, sailor number 1!
hello,sailor1 number 1!
hello,sailor1 number 2!
hello,sailor1 number 3!