«

I want to maintain my $version variable in a single place
within the script and I want it available in a BEGIN block
that is a different package from the rest of the script. Is
this possible? Here's what I mean:

---------------

#!/usr/bin/perl

BEGIN {
package Some:ackage;
my $version = '1';
print "version is $version\n";
}

my $version = $Some:ackage::version;
print ("version is $version\n"); # not initialized ???

On 03/03/2007 01:03 PM, wrote:
> I want to maintain my $version variable in a single place
> within the script and I want it available in a BEGIN block
> that is a different package from the rest of the script. Is
> this possible? Here's what I mean:
>
> ---------------
>
> #!/usr/bin/perl
>
> BEGIN {
> package Some:ackage;
> my $version = '1';

Use "our" instead:

our $version = '1';

> print "version is $version\n";
> }
>
> my $version = $Some:ackage::version;
> print ("version is $version\n"); # not initialized ???
>

When you want a variable to be package scoped, use "our":

perldoc -f our

On Mar 3, 12:16 pm, "Mumia W." <paduille.4060.mumia.w
+nos...@earthlink.net> wrote:
> On 03/03/2007 01:03 PM, 1172948...@noid.net wrote:
>
> > I want to maintain my $version variable in a single place
> > within the script and I want it available in a BEGIN block
> > that is a different package from the rest of the script. Is
> > this possible? Here's what I mean:
>
> > ---------------
>
> > #!/usr/bin/perl
>
> > BEGIN {
> > package Some:ackage;
> > my $version = '1';
>
> Use "our" instead:
>
> our $version = '1';
>
> > print "version is $version\n";
> > }
>
> > my $version = $Some:ackage::version;
> > print ("version is $version\n"); # not initialized ???
>
> When you want a variable to be package scoped, use "our":
>
> perldoc -f our

Using "our" works perfectly... Thanks!

<> wrote:
>
> I want to maintain my $version variable in a single place
> within the script and I want it available in a BEGIN block
> that is a different package from the rest of the script. Is
> this possible? Here's what I mean:
>
> ---------------
>
> #!/usr/bin/perl
>
> BEGIN {
> package Some:ackage;
> my $version = '1';
^^
^^

See:

"Coping with Scoping":

http://perl.plover.com/FAQs/Namespaces.html


> print "version is $version\n";
> }
>
> my $version = $Some:ackage::version;
> print ("version is $version\n"); # not initialized ???
>


--
Tad McClellan SGML consulting
Perl programming
Fort Worth, Texas