Re: ps aux and perl

[lemming]

Some pseudo code:

open pipe from ps aux, perhaps after grepping for sendmail
while(<PIPE>) {
  my ($owner, $pid,
      undef, undef, undef, undef, undef, undef, undef, undef, # Throw 
+eight values away
      $command_withIP) = split(' ', $_, 11);
Do stuff
}

Update: What c suggests is a good path to take, especially since the ps table is rather transitory. You won't be sure of having a pid match. If the log doesn't have the IP address, I'm sure that can be set via sendmail.cf. You may also want to look into /etc/mail for some more clues.

Update2: thank you bbfu

[bbfu]

I assume that the 'j' in $j[1..8] stands for 'junk'... If you're actually going to not use those variables, you might consider using the following idiom to reduce the number of unused lexical variables created, 'variable used only once' warnings, and typing. ;)

my ($owner, $pid, (undef) x 8, $command_withIP) = split(' ', $_, 11);

Anyway, it's just a thought. Take it or leave it. :-)

Update: D'oh! Forgot necessary spaces around the x operator. Thanks lemming. :-)

bbfu
Seasons don't fear The Reaper.
Nor do the wind, the sun, and the rain.
We can be like they are.

[Jerry]

When I run this code, $command_withIP contains the whole line, not the command with ip. For some reason, the splits ppl recommend don't seem to work at all.

-Jerry
http://www.digilliance.net