What is the difference between my and local in Perl?

by

The short answer is that my marks a variable as private in a lexical scope, and local marks a variable as private in a dynamic scope.

It’s easier to understand my, since that creates a local variable in the usual sense. There is a new variable created and it’s accessible only within the enclosing lexical block, which is usually marked by curly braces. There are some exceptions to the curly-brace rule, such as:

foreach my $x (@foo) { print "$x\n"; }

But that’s just Perl doing what you mean. Normally you have something like this:

sub Foo {
   my $x = shift;

   print "$x\n";
}

In that case, $x is private to the subroutine and its scope is enclosed by the curly braces. The thing to note, and this is the contrast to local, is that the scope of a my variable is defined with respect to your code as it is written in the file. It’s a compile-time phenomenon.

To understand local, you need to think in terms of the calling stack of your program as it is running. When a variable is local, it is redefined from the point at which the local statement executes for everything below that on the stack, until you return back up the stack to the caller of the block containing the local.

This can be confusing at first, so consider the following example.

sub foo { print "$x\n"; }
sub bar { local $x; $x = 2; foo(); }

$x = 1;
foo(); # prints '1'
bar(); # prints '2' because $x was localed in bar
foo(); # prints '1' again because local from foo is no longer in effect

When foo is called the first time, it sees the global value of $x which is 1. When bar is called and local $x runs, that redefines the global $x on the stack. Now when foo is called from bar, it sees the new value of 2 for $x. So far that isn’t very special, because the same thing would have happened without the call to local. The magic is that when bar returns we exit the dynamic scope created by local $x and the previous global $x comes back into scope. So for the final call of foo, $x is 1.

You will almost always want to use my, since that gives you the local variable you’re looking for. Once in a blue moon, local is really handy to do cool things.

More Related Contents:

  1. I want to read a file from a directory folder [duplicate]
  2. Perl: Compare 2 hash table values
  3. Failing to install MIME::Base64 using cpan [closed]
  4. Declaring a 2D coordinate in Perl / C / C++ [closed]
  5. Why can’t Perl find my file that is in ClearCase?
  6. Difference of Two Arrays Using Perl
  7. How can I output UTF-8 from Perl?
  8. What’s the difference between a hash and hash reference in Perl?
  9. Multiline search replace with Perl
  10. How do I “use” a Perl module in a directory not in @INC?
  11. How can I process options using Perl in -n or -p mode?
  12. How can I dynamically include Perl modules without using eval?
  13. How can I compile my Perl script so it can be executed on systems without ‘perl’ installed?
  14. Why does my Perl script exit with 137?
  15. @ARGV is empty using ActivePerl in Windows 7
  16. Perl read line by line
  17. What is the difference between Perl’s ( or, and ) and ( ||, && ) short-circuit operators?
  18. How do I change, delete, or insert a line in a file, or append to the beginning of a file in Perl?
  19. How can I install a specific version of a set of Perl modules?
  20. Obtain a switch/case behaviour in Perl 5
  21. What is the difference between `read` and `sysread`?
  22. How do I extract the domain out of an URL?
  23. Why does $foo->{bar} autovivify but %$foo doesn’t?
  24. How can I extract text from a PDF file in Perl?
  25. What do you get if you evaluate a hash in scalar context?
  26. How to read to and write from a pipe in Perl?
  27. Can a Perl script install its own CPAN dependencies?
  28. How do I retrieve the terminal width in Perl?
  29. In Perl, is it appropriate to use map in void context instead of a foreach loop?
  30. How does a Perl program know where to find the file containing Perl module it uses?

Leave a Comment