$Some::stuff 使用包some的标准变量$stuff
our 把名字限制于一个作用域,
local 把值限制于一个作用域,
my 把名字和值都限制于一个作用域
my变量:
[root@master Webqq]# cat t5.pl
{my $var=11;print "\$var is 1--$var\n";}{print "\$var is 2--$var\n"};
{our $var=11;print "\$var is 1--$var\n";}{print "\$var is 2--$var\n"};
[root@master Webqq]# perl t5.pl
$var is 1--11
$var is 2--
$var is 1--11
$var is 2--11
our变量:
[root@master Webqq]# cat t6.pl
our $PROGRAM_NAME = "waiter";
{
my $PROGRAM_NAME = "something";
print "\$PROGRAM_NAME is 1---$PROGRAM_NAME\n";
our $PROGRAM_NAME = "server"; #这里的our和外面的相同,和前句不同。
print "\$PROGRAM_NAME is 2----$PROGRAM_NAME\n";
# 这里调用的代码看到的是"server"
}
print "\$PROGRAM_NAME is 3----$PROGRAM_NAME\n";
[root@master Webqq]# perl t6.pl
$PROGRAM_NAME is 1---something
$PROGRAM_NAME is 2--
perl 中的my和全局变量
最新推荐文章于 2024-07-03 17:02:32 发布