in reply to How to use "our()" variables correctly within a Perl module

Any idea where my thinking or implementation is wrong?

That's simple. You have declared the variable as our in your module, but not in your script using that module. For something to be labelled as our, there must be at least two of them sharing it. So, saying 

use lib 'F:/scripts/perl/';
use junk;
use strict;
use warnings;

our $variable1;

print("\$variable1 = $variable1\n");

[download]

will fix that issue.

Note that our variables are lexical aliases for a package variable. So, if the lexical scope spans several packages in the same file, all of those packages see that (unqualified) variable, which is a global to the package that declared it (I think of our as an autovivification of package globals): 

use strict;
package Foo;

our $bar = "guggug!\n";

package main;

print $bar;
__END__
guggug!

[download]
Here $bar is visible from main just as $bar although it's typeglob lives in package Foo as $Foo::bar. Note that this behavior is different from what use vars does, so the vars pragma is not obsoleted by the introduction of our, contrary to what the docs state.

--shmem 

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Replies are listed 'Best First'.
Re^2: How to use "our()" variables correctly within a Perl module
by memnoch (Scribe) on Nov 27, 2007 at 21:04 UTC
    Thank you shmem.....I tried your suggestion, but I get: 
    F:\scripts\perl>perl -c junk.pl
junk.pl syntax OK

F:\scripts\perl>junk.pl
Use of uninitialized value in concatenation (.) or string at F:\script
+s\perl\junk.pl line 12.
$variable1 =

F:\scripts\perl>

    [download]
    Any ideas? Thank you...memnoch
[reply]
[d/l]
      Oops... ah well. Yes, I have ideas, and to correct myself where I've been wrong, and further elaborate in what I have been right - in junk.pl: 
      #!/usr/bin/perl
use junk;
use strict;
use warnings;

package Mylib;
our $variable1;

package main;
print("\$variable1 = $variable1\n");
__END__
$variable1 = string1

      [download]

      That package switching creates a lexical (file scoped) alias to $Mylib::variable1, which is accessible in package main.

      Whithout that switching, an alias to $main::variable1 is created, which isn't related to the package global $Mylib::variable1 created by declaring our $variable1 in package Mylib.

      --shmem 

      _($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
[reply]
[d/l]
[select]
        Thank you shmem....that works!

        Gloria in Excelsis Deo!
[reply]

In Section Seekers of Perl Wisdom