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

in reply to Re^3: Can I from within a module access variables from the calling program?
in thread Can I from within a module access variables from the calling program?

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 ?

Comment on Re^4: Can I from within a module access variables from the calling program? Select or Download Code

Replies are listed 'Best First'.
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
Oh yeah, that sounds obvious now that you said it ^^" I'm getting an error (hopefully the last one)... `Variable "$log_name" is not imported at ./script.pl line 53. Global symbol "$log_name" requires explicit package name at ./script.p +l line 53.` [download]	[reply] [d/l]
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
OK: Declare the variable with our. In `BEGIN`, set its value. use the module. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^8: Can I from within a module access variables from the calling program? by HJO (Acolyte) on Oct 25, 2012 at 13:55 UTC

In Section Seekers of Perl Wisdom