持久性私有变量

2016-10-13 20:21:12来源:CSDN作者:g13731463274人点击

第七城市
[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!
第七城市

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台