perl中变量的限定
发布时间:2020-12-16 00:05:46 所属栏目:大数据 来源:网络整理
导读:my:创建私有变量。 state:告诉Perl该变量属于当前子程序的私有变量。第一次调用该子程序的时候,Perl声明并初始化变量$n,而再接下来的调用中,这个表达是将被Perl忽略。每次程序返回后,Perl都会将该变量的当前值保留下来,以备下次调用时再用。 my: use
my:创建私有变量。 state:告诉Perl该变量属于当前子程序的私有变量。第一次调用该子程序的时候,Perl声明并初始化变量$n,而再接下来的调用中,这个表达是将被Perl忽略。每次程序返回后,Perl都会将该变量的当前值保留下来,以备下次调用时再用。 my: use warnings; use strict; my @names = qw (name1 name2 name3 name4); my $result = which_name_is("name2",@names); print $result."n"; sub which_name_is { my($what,@array) = @_; foreach (0..$#array){ if($what eq $array[$_]){ return $_; } } return -1; } state: use warnings; use strict; use 5.010; marine(); marine(); sub marine{ state $n = 0; #持久性私有变量$n $n += 1; print "Hello,sailor number is $nn"; } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |