Re^2: Can I from within a module access variables from the calling program?

Replies are listed 'Best First'.
Re^3: Can I from within a module access variables from the calling program? by choroba (Cardinal) on Oct 25, 2012 at 12:20 UTC
Use of uninitialized value Oh, I see. You were probably not following the whole conversation in the ChatterBox. If you are not mentioning the variable in a subroutine in the package, the code is executed before you assign any value to the variable in `main::`. You have to assign the value in a `BEGIN` block in order to be accessible from within the top level of the package. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l] [select]
Re^4: Can I from within a module access variables from the calling program? by HJO (Acolyte) on Oct 25, 2012 at 13:07 UTC
Well yes, to be honnest, I just saw those three lines, and when I wanted to learn more it was too late for me to see other answers... I'm don't understand quite well how the ChatterBox works and I was a bit too shy to ask again so I tried a private message, but it wasn't long enought to express my problem so I posted a message after a light search to avoid double posts... Thanks a lot, I was afraid that I had to use a method that would refactor my whole code ^^"	[reply]
Re^4: Can I from within a module access variables from the calling program? by HJO (Acolyte) on Oct 25, 2012 at 13:31 UTC
I may have really bad luck, but it's not working either, even with the `BEGIN {...}` method :( `BEGIN{ my %month = ( 'Jan' => '01', 'Feb' => '02', 'Mar' => '03', 'Apr' => '04', 'May' => '05', 'Jun' => '06', 'Jul' => '07', 'Aug' => '08', 'Sep' => '09', 'Oct' => '10', 'Nov' => '11', 'Dec' => '12', ); my $localdate = localtime; my ($dname, $mname, $day, $time, $year) = split( " ",$localdate); #my $log_name = "./log/ST03_$year-$month{$mname}-$day\_$time.log"; our $log_name = "./log/ST03_$year-$month{$mname}-$day\_$time.log"; }` [download] Is something missing ?	[reply] [d/l] [select]
Re^5: Can I from within a module access variables from the calling program? by choroba (Cardinal) on Oct 25, 2012 at 13:33 UTC
The `BEGIN` must precede the `use`. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l] [select]
Re^6: Can I from within a module access variables from the calling program? by HJO (Acolyte) on Oct 25, 2012 at 13:40 UTC
Re^7: Can I from within a module access variables from the calling program? by choroba (Cardinal) on Oct 25, 2012 at 13:45 UTC
Some notes below your chosen depth have not been shown here
Re^3: Can I from within a module access variables from the calling program? by perl_walker (Novice) on Oct 25, 2012 at 12:32 UTC
Hi HJO, Try this, In your module declare global variable, then export variable `.... our %glo_var = ('a'=>100,'b'=>200); ... @EXPORT = qw(%glo_var ... members); ... 1;` [download] In your tool `use SampleModule::TestMod; print $glo_var{'a'};exit;` [download] Output=100	[reply] [d/l] [select]
Re^4: Can I from within a module access variables from the calling program? by HJO (Acolyte) on Oct 25, 2012 at 12:49 UTC
Hi perl_walker it appears to me that I wasn't enought specific on my post be cause what I'm trying to do is precisely the opposite, calling a variable FROM the principal script INTO the module But thanks anyway :)	[reply]