I want to extract a list of postfix's queue id's. The 'mailq' command returns output as follows:
-- 8C0597408D 2503 Tue Feb 17 16:15:34 [email protected] (connect to bar-plate.com[209.62.20.192]:25: Connection refused) [email protected] 88E8E7409E 1881 Tue Feb 17 23:37:40 [email protected] (connect to mail.fbig.com[70.68.160.253]:25: Connection timed out) [email protected] -- right now I'm doing the following: my @ids; foreach (`mailq`) { next unless /^\w+/; chomp; push @ids, (split)[0]; } I know it can be done with one line. Here's what I've got so far: my @ids = map {chomp; (split)[0] if /^\w/} `mailq`; This 'kinda' works, but it also adds a bunch of blank elements to the @ids array. What am I doing wrong? Thanks, Pablo -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected] http://learn.perl.org/
