perl变量使用范围非常经典详解

q3256

　　下面的代码以及代码执行结果还有最后的详细说明，希望能帮助大家理解变量在perl中的使用范围。谢谢大家的支持！
　　#!/bin/perl
　　$global = "i'm the global version";
　　showme('at start');
　　lexical();
　　localized();
　　showme('at end');
　　sub showme
　　{
　　my $tag = shift;
　　print "$tag: $global\n";
　　}
　　sub lexical
　　{
　　my $global = "i'm in the lexical version";
　　print "in lexical() ,\$global is ---> $global\n";
　　our $global;
　　print "in lexical() with our,\$global is ---> $global\n";
　　showme('from lexical()');
　　localized();
　　}
　　sub localized
　　{
　　local $global = "i'm in the localized version";
　　print "in localized(),\$global is ---> $global\n";
　　showme('from localized');
　　}
　　[root@stationx variable]# perl global.pl
　　at start: i'm the global version
　　in lexical() ,$global is ---> i'm in the lexical version
　　in lexical() with our,$global is ---> i'm the global version
　　from lexical(): i'm the global version
　　in localized(),$global is ---> i'm in the localized version
　　from localized: i'm in the localized version
　　in localized(),$global is ---> i'm in the localized version
　　from localized: i'm in the localized version
　　at end: i'm the global version
　　[root@stationx variable]#
　　变量的范围
　　规则1. global定义了全局变量gv，变量在程序内所有地方可见（特例除外）。
　　规则2. 如果在父程序内定义了额外的子程序，并且子程序中使用my定义了一个与global变量相同名称的变量gv，那么，在该子程序内变量gv的value是my gv的值，而不是global gv的值。但是，当程序代码从子程序跳转到父程序的时候，程序所使用的gv的值是global gv的值。
　　规则3. 如果在父程序内定义了额外的子程序，并且子程序中使用了local定义了一个与global变量相同名称的变量gv，那么，知道该子程序结束所使用的变量gv的值都是local gv的值。
　　规则4. 如果在父程序中定义了额外的子程序，并且在子程序中使用了my定义的一个与global变量名称相同的变量，但是该子程序并不想使用my定义的变量值而想使用global定义的变量值，那么可以使用our重声该变量即可，子程序后续使用的gv的值都是global gv的值。
　　但是，如果将规则2继续套用在规则4中，规则3的local gv仍然是最具影响力的，依然使用规则3中子程序定义的local gv的值。而不是使用global gv的值。