Re: hashing out lines from mailq...

Using a regex probably does it for you. Matching the parenthasised stuff ("(Deferred: ...)") may be problematic if nested parenthesis are allowed. That aside, the following should get you started:

use warnings;
use strict;

my $str = 'k4J37P420342     3256   10021545 May 18 23:07 MAILER-DAEMON
+ (Deferred: Connection reset by somdomain.com.) <someone@somedomain.c
+om>';

my ($code, $addr) = $str =~ /(\S+)(?:[^)]*)\)\s*<([^>]+)/;

print "$code $addr\n" if defined $addr;
[download]

Prints:

k4J37P420342 someone@somedomain.com
[download]

DWIM is Perl's answer to Gödel

Comment on Re: hashing out lines from mailq... Select or Download Code

Replies are listed 'Best First'.
Re^2: hashing out lines from mailq... by perlknight (Pilgrim) on May 24, 2006 at 15:04 UTC
here's the the code, the regex for Deferred is working now, but still I am running out of idea how store multiple recipients associating with the qid, any idea? #!/usr/bin/perl use Data::Dumper; open (Q,"-\|" , "cat mailqout" ); my $ref_tomailq= []; my $coutner = 0; my $temp_qid; while(<Q>) { # Ignore the banners and totals next if m{ Q-ID }ix ; # Ignore any completed jobs #next if m{ ^ .{10,20} \s $job \s completed$ }x; if( m{ ^\w+ }ix ) { my @ar_line = split(/\s+/,$_); my $num_char = length($ar_line[0]); if ( $num_char > "0") { #print "$ar_line[$counter] $ar_line[-1]"; $ref_tomailq->[$counter]->{$ar_line[0]}->{"fro +m"} = $ar_line[-1]; $temp_qid = $ar_line[0]; $counter++; } } else { my @ar_line = split(/\s+/, $_); chomp(@ar_line); if ( $ar_line[1] =~ /\(Deferred:/) { $ref_tomailq->[$counter-1]->{$temp_qid}->{"sta +tus"} = "deffered"; } elsif ($ar_line[1] =~ /<{1}\w+>?/) { #print "@ar_line\n"; $ref_tomailq->[$counter-1]->{$temp_qid}->{"to" +} = $ar_line[1] } } } print Dumper($ref_tomailq); [download] Thanks.	[reply] [d/l]
Re^3: hashing out lines from mailq... by gellyfish (Monsignor) on May 24, 2006 at 15:08 UTC
The code I showed you does that. /J\	[reply]


Welcome to the Monastery
	PerlMonks