Re: not creating log files

Try something like this:

sub slog {
    my ( $prg, $priority, $msg ) = @_;
    return unless ($priority =~ /info|err|debug/);
    openlog( $prg, 'pid', 'user' );
    syslog( $priority, $msg );
    closelog();
    return 1;
}
[download]

Use it like this:

my $prg = $0;
my $message =qq(Something weird happend!);
 slog( $prg, 'err', $message )
[download]

I assume you use Linux. So the message should be in /var/log/messages

On windows run eventvwr

Hope that helps. Regards, Karl

ŤThe Crux of the Biscuit is the Apostropheť

Comment on Re: not creating log files Select or Download Code

Replies are listed 'Best First'.
Re^2: not creating log files by sumandas (Initiate) on Feb 03, 2014 at 14:49 UTC
But i want the log file to create,where can i find that	[reply]
Re^3: not creating log files by karlgoethebier (Abbot) on Feb 03, 2014 at 15:13 UTC
`/var/log/messages` is a file. The default place to go for log messages on Linux and IHMO the best in most cases (still assuming you are on Linux). If you are on Windows the Event Log or what ever they call it in English, is a good place too. Type `file /var/log/messages` and you will see `/var/log/messages: ASCII English text, with very long lines`. Or i hope so ;-) Please see also Sys::Syslog and syslog as well as the hints marto gave below (perhaps you should start there...) I mentioned already in the CB that you should consider just to print to `STDOUT` and `STDERR` and then redirect the stuff to a file (`your_prg.pl > your_log.log`). By far the easiest solution to begin. See redirections for further information about this. The links marto provided should be helpful for learning how to do so. EDIT: fixed little typo... Best regards, Karl ŤThe Crux of the Biscuit is the Apostropheť	[reply] [d/l] [select]
Re^3: not creating log files by marto (Cardinal) on Feb 03, 2014 at 14:50 UTC
Start here, then move on to http://learn.perl.org and the tutorials section of this site.	[reply]