Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: Logging Singleton

by manorhce (Beadle)
on Feb 18, 2013 at 18:56 UTC ( #1019384=note: print w/replies, xml ) Need Help??

in reply to Logging Singleton

Hi It will be easy if you will follow to Log::Log4perl module which cpan provides

you can call the log method like Log->info($message)

Create a module with using Log::Log4perl

BEGIN { require Exporter; push @ISA, qw(Exporter); @EXPORT = ( @Data::Dumper::EXPORT, @Carp::EXPORT, qw($log get_logger); $conf_file="path to log4perl.conf"; eval { Log::Log4perl->init($conf_file); } if ($@) { die "Cann't open the file" if ($@ =~ m/Permission/gi); } Log::Log4perl->get_logger("My::MegaPackage"); } sub new { my $class = shift; return bless {}, $class; } sub info { my ($self, $message) = @_; my ($package, $filename, $line) = caller; my $_log = Log::Log4perl->get_logger($packa +ge); $log->info($message) if ($log->is_info()); } sub error { my ($self, $message) = @_; my ($package, $filename, $line) = caller; my $_log = Log::Log4perl->get_logger($packa +ge); $log->error( longmess($message) ) if ($log->is_error()); } sub debug { my ($self, $message) = @_; my ($package, $filename, $line) = caller; my $_log = Log::Log4perl->get_logger($packa +ge); $log->debug($message) if ($log->is_debug()); }

and by using this module and calling get_logger() method your job will be easy

Please let me know if you are unclear on this and I will suggest to follow Log::Log4perl for better logging messages

Replies are listed 'Best First'.
Re^2: Logging Singleton
by Anonymous Monk on Feb 18, 2013 at 19:23 UTC
    Thanks. I would have used log4perl but unfortunately working with older version of Perl.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1019384]
[Corion]: I already showed you the simple regex to match the last part of a string without a comma in it
[Tux]: Corion++ hippo++
[ovedpo15]: it isn't homework. its a module I use at work. The process to add additional module isn't worth it. p.s never heard a university course which teach perl
[marto]: there are many, to this day.
[ovedpo15]: @Corion Yes I use the regex you showed me. its very good regex. although now i need to know that substring unit that comma
marto mad corrections to one around 18 months ago
[ovedpo15]: my code checks the value after that comma, if it isn't valid it will remove it. so I would like to remove the substring after that comma meaning getting the string before comma.
[hippo]: Are you sure that Text::CSV_XS isn't already installed at your work? It's such a useful module that it might well be there.
[marto]: pointing out the advantages of cpan modules is well worth in, as both developer and $client/$company benefit greatly
[Tux]: $src =~ m{^(.*),(.*)$/ and $2 !~ $valid and $src = $1;

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (7)
As of 2018-05-27 10:44 GMT
Find Nodes?
    Voting Booth?