in reply to Re^2: 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?

Hi Anonymous Monk,

Thank you for your answer, it seems to fix my issue, but I'm afraid I don't understand it quite well :(

package Log::Log4perl::Appender::HJOfilnamed;
use parent qw[ Log::Log4perl::Appender::File ];

[download]

Are you creating and entire module juste for the purpose of logging ? I mean, that's a good idea, I must admit it never accured to me that I could do so... And the use parent, what is it doing precisely please ?

If I understand quite well, you are creating an object to create a new name at every launch of the main script ? And you are calling it at the intialization of the logger ? Does this allows me to have the exact same logfile name for my script and its module ? (I mean, even if there's a delay of about a second between the two initializatons)

And thanks for the way you are naming your file, basically I use the same, but I'll stick to my method, it seems rather complicated the way you do it, at least to complicate for me...

Replies are listed 'Best First'.
Re^4: Can I from within a module access variables from the calling program?
by Anonymous Monk on Oct 29, 2012 at 10:47 UTC

    And the use parent, what is it doing precisely please ?

    If you're really interested, read about it :) perldoc parent

    output 

    $ dir /b
shabba.pl

$ perl shabba.pl

$ dir /b
A1.2012-10-29T10-49-10Z.log
A2.2012-10-29T10-49-11Z.log
Logfile.2012-10-29T10-49-10Z.log
shabba.pl

$ cat A1.2012-10-29T10-49-10Z.log
2012/10/29 03:49:10 INFO> shabba.pl:43 main::Main - (Groceries) Import
+ant Info!
2012/10/29 03:49:10 INFO> shabba.pl:44 main::Main - (Groceries) Import
+ant Info! THEN NEWLINE
THEN IMPORTANTINFO

$ cat A2.2012-10-29T10-49-11Z.log
2012/10/29 03:49:10 INFO> shabba.pl:48 main::Main - (Junk) UnImportant
+ Info!

$ cat Logfile.2012-10-29T10-49-10Z.log
2012/10/29 03:49:10 shabba.pl 43> (Groceries) Important Info!
2012/10/29 03:49:10 shabba.pl 44> (Groceries) Important Info! THEN NEW
+LINE
THEN IMPORTANTINFO
2012/10/29 03:49:10 shabba.pl 48> (Junk) UnImportant Info!
2012/10/29 03:49:10 shabba.pl 83> (Bar.Twix) Twix mjam
2012/10/29 03:49:10 shabba.pl 83> (Bar.Twix) Twix mjam
2012/10/29 03:49:10 shabba.pl 83> (Bar.Twix) YAM NEWLINE
Twix mjam
2012/10/29 03:49:10 shabba.pl 83> (Bar.Twix) YAM NEWLINE
Twix mjam
2012/10/29 03:49:10 shabba.pl 87> (Bar.Mars) Mars mjam
2012/10/29 03:49:10 shabba.pl 87> (Bar.Mars) Mars mjam
2012/10/29 03:49:10 shabba.pl 87> (Bar.Mars) YAM NEWLINE
Mars mjam
2012/10/29 03:49:10 shabba.pl 87> (Bar.Mars) YAM NEWLINE
Mars mjam

    [download]

    testcase (creates 3 logfiles on each run)

    <Reveal this spoiler or all spoilers in this node or all in this thread>
[reply]
[d/l]
[select]

      Thanks for the perldoc link, I've read it and will maybe hopefully understand its implications someday...

      About your code, I think I got it (not quite sure ^^'), but it's not really an anwser to my issue... I'm looking at a way to have the same logfile name for my script and module while I'm running them... And I'm afraid that as you had, if there's a 1 second delay, the two files would not have the same name...

[reply]

        if there's a 1 second delay, the two files would not have the same name...

        give gmtime $^T

[reply]

In Section Seekers of Perl Wisdom