Re: Can you create *real* global variables?

[lepre]

in reply to Can you create *real* global variables?

Try solving this one...

#!/usr/bin/perl -w
use strict;

my $V1 = "1.2.3";

{
  package foo;
  use strict;
  sub fetchvar { 
    print $main::V1;
    print $main::V2; 
  }
}

my $V2 = "3.2.1";

foo::fetchvar();

The ^ or . trick is not allowed in my version of perl.

[Anno]

Please put <c>...</c> tags around code.

What's to solve? Are you asking why the package variables $main::V1 and $main::V2 aren't defined when foo::fetchvar() is called?

That's because they were never set. Instead, you set the lexical variables (of file scope) $V1 and $V2.

Change the my declarations for $V1 and $V2 to our and your code will do what (I suppose) you expect it to do.

Anno

[lepre]

The "our" declaration is not documented in the second edition of Wall's book (1996). Oh, gosh, it is 10 years old... Time passes by. Thanks.