Re: local & global function

[Jenda]

Maybe what you are after is somewhat like this:

use strict;

{ # just a block
    my $test; # the lexical one
    sub foo {
        print "In foo: \$test=$test\n";
        $test = "Hello world";
        print "In foo: \$test=$test\n";
    }
    sub bar {
        print "In bar \$test=$test\n";
    }
}

my $test; # the global one

print "Global \$test=$test\n";

foo();
print "Global \$test=$test\n";
bar();
print "Global \$test=$test\n";

The two functions are defined in a block and therefore share the lexical (please do not use the term local in Perl) variables declared within that block ABOVE the functions.

[LanX]

> The two functions are defined in a block and therefore share the lexical

Additional note: this is a fine example for using Closures.

The two functions are "closing" over the lexical variable $test.

And this $test has a lexical (i.e. static) scope restricted to the block.

PS: it also demonstrates that closure don't need to be anonymous. There is a widespread misconception in some other languages that "closure" is a synonym for "anonymous function".