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

下面的代码以及代码执行结果还有最后的详细说明，希望能帮助大家理解变量在perl中的使用范围。谢谢大家的支持！

#!/bin/perl
$global = "i'm the global version";

showme('at start'); lexical(); localized(); showme('at end'); sub showme ??????? { ??????? my $tag = shift; ??????? print "$tag: $globaln"; ??????? } sub lexical ??????? { ??????? my $global = "i'm in the lexical version"; ??????? print "in lexical(),$global is ---> $globaln"; ??????? our $global; ??????? print "in lexical() with our,$global is ---> $globaln"; ??????? showme('from lexical()'); ??????? localized(); ??????? } sub localized ??????? { ??????? local $global = "i'm in the localized version"; ??????? print "in localized(),$global is ---> $globaln"; ??????? 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的值。