Perl Log::FileSimple

Log是常用模块，看了下Perl自带的Log::Message模块，不太明白，从网上找了一个简单的Log模块，看下他的实现方法，可以从中学习一些方法和技巧。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ package Log::FileSimple; use 5.006; use strict; use warnings; use Carp; use FileHandle; use Data::Dumper; $Log::FileSimple::VERSION    = '0.02'; # Fields that can be set in new method,with defaults my %fields =(        file     => '/tmp/log.log',    name    => undef,    mask    => 0xFFFF,    autoflush => 0,); sub new {                my ($proto,%options) = @_;     my $class = ref($proto) || $proto;     my $self = {         %fields};     while (my ($key,$value) = each(%options)) {         if (exists($fields{$key})) {             $self->{$key} = $value if (defined $value);         } else {             die ref($class) . "::new: invalid option '$key'/n";         }     }     foreach (keys(%fields)) {         die ref($class) . "::new: must specify value for $_"             if (!defined $self->{$_});     }     $self->{mask} = 0xFFFF if ($self->{mask} == -1);     bless $self,$class;     $self->_init;     return $self; } sub _init {     my $self = shift;     $self->{fh} = new FileHandle ">>$self->{file}";     $self->{fh}->autoflush($self->{autoflush});     die "Unable to write to $self->{file}" if (!defined $self->{fh}); } sub DESTROY {     my $self = shift;     $self->{fh}->close;     undef $self->{fh};     # Enter here your code } sub log {     my $self         = shift;     my %log_data     = @_;         $log_data{'id'} = $self->{mask}         if (!exists $log_data{'id'});     #$self->{fh}->print("Data :" . $log_data{'id'} . "-" .     #    $self->{mask} . "-" . ($log_data{'id'} & $self->{mask}) ."/n");     return if (($log_data{'id'} & $self->{mask}) == 0);     my $timestamp    = localtime;     my $sep            = '-' x 80;     my $log_data = $log_data{'message'} . "/n"              if (exists $log_data{'message'});         if (exists $log_data{'objects'}) {         foreach (@{$log_data{'objects'}}) {             $log_data .= Data::Dumper::Dumper($_) . "/n";         }     }     my $print_data    =<<EOF; [$timestamp] -> $self->{name} $log_data $sep EOF     $self->{fh}->print($print_data); } sub mask { my $s = shift; if (@_) { $s->{mask} = shift; } return $s->{mask}; }