Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Sendmail pairs

by rob_au (Abbot)
on Sep 15, 2002 at 00:24 UTC ( #197957=note: print w/ replies, xml ) Need Help??


in reply to Sendmail pairs

It may be worth having a look at the SyslogScan package on CPAN - This package can be used to parse sendmail logs and return a wealth of information on mail usage. For example, using this package, your code could be reduced to:

use SyslogScan::DeliveryIterator; use strict; my $logs = [ '/var/adm/syslog/mail.log' ]; my $iterator = new SyslogScan::DeliveryIterator( syslogList => $logs ) +; while ( my $delivery = $iterator->next() ){ print $delivery->{Sender} . " -> " . join( ",", @{$delivery->{ReceiverList}} ), "\n"; }

This package is also discussed in the sample chapter of the excellent resource "Perl for System Administration" which can be found here.

 


Comment on Re: Sendmail pairs
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://197957]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (7)
As of 2015-07-29 05:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (260 votes), past polls