4.7. Notes on Lexical (my) VariablesThose lexical variables can be used in any block,not merely in a subroutine's block. For example,they can be used in the block of an if,while,or foreach: foreach (1..10) { my($square) = $_ * $_; # private variable in this loop print "$_ squared is $square./n"; } The variable $square is private to the enclosing block; in this case,that's the block of the foreach loop. If there's no enclosing block,the variable is private to the entire source file. For now,your programs aren't going to use more than one source file,so this isn't an issue. But the important concept is that the scope of a lexical variable's name is limited to the smallest enclosing block or file. The only code that can say $square and mean that variable is the code inside that textual scope. This is a big win for maintainabilityif the wrong value is found in $square,the culprit will be found within a limited amount of source code. As experienced programmers have learned (often the hard way),limiting the scope of a variable to a page of code,or to a few lines of code,accelerates the development and testing cycle. Also,the my operator doesn't change the context of an assignment: my($num) = @_; # list context,same as ($num) = @_; my $num = @_; # scalar context,same as $num = @_; In the first one,$num gets the first parameter,as a list-context assignment; in the second,it gets the number of parameters,in a scalar context. Either line of code could be what the programmer wanted; you can't tell from that one line alone,so Perl can't warn you if you use the wrong one. (Of course,you wouldn't have both of those lines in the same subroutine since you can't have two lexical variables with the same name declared in the same scope; this is just an example.) When reading code like this,you can always tell the context of the assignment by seeing what the context would be without the word my. So long as we're discussing using my( ) with parentheses,remember that without the parentheses,my only declares a single lexical variable:[*]
my $fred,$barney; # WRONG! Fails to declare $barney my($fred,$barney); # declares both Of course,you can use my to create new,private arrays as well:[] my @phone_number; Any new variable will start out empty: undef for scalars or the empty list for arrays. |
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。