This is following up on a previous question (at 620459) that McDarren gave me a lot of assistance with. I'm hoping to do a minor tweak of that same script. It's parsing Postfix logs to display data relating to specific mail transactions. It will nicely give me any info related to a given queue ID that is required. However, one item - the message recipient - may have more than one parameter. I've come up with some code shown below that will help if there is only one other recipient, but if there is more than that, it makes sense to "push" any other entries into an array (and eventually join them into a scalar with delimiters to print out) - this is the part I'm having trouble addressing.
Here's the code I have, which will deal with one or two recipients: 
if ($line =~ /relay=127\.0\.0\.1/) {        
    my ($id, $to, $status) = (split /\s+/, $line, 10)[5,6,9];
    chop($id);
    $to =~ s/to=<(.*?)>,/$1/;
    if ( defined $messages{$id}{to} ) {
        $messages{$id}{to2} = $to;
    } else {    
        $messages{$id}{to} = $to;
    }    
}
for my $id (%messages) {
    no warnings 'uninitialized';
    $messages{$id}{from} =~ /\@(\w+\..+)/;
    print "$messages{$id}{date}\t$id\t$messages{$id}{from}\t$messages{
+$id}{to}";
    if (defined  $messages{$id}{to2} ) {     print ", $messages{$id}{t
+o2}"; }
    print "\n";    
}

[download]
The output should be as follows: 
Nov 16 10:28:51 66AE820809D     Terry.Puser@ourdomain.com    carols@th
+eirdomain.com.au, daleb@theirdomain.com.au[, ...]

[download]
So, the part where I'm futzing around with $messages{$id}{to2} is really where I should be shoving any extra values into an array, I think. I've still not got my head around using references as in this script, so pointers to the appropriate syntax would be appreciated. Since the majority of messages only have one recipient, I'm happy to keep $messages{$id}{to} for those instances. A snippet of mail log with a message with two recipients is below: 
Nov 16 10:28:51 smtp3 postfix/smtpd[17709]: connect from mailserver.ou
+rdomain.gov.au[168.x.x.x]
Nov 16 10:28:51 smtp3 postfix/smtpd[17709]: 66AE820809D: client=mailse
+rver.ourdomain.gov.au[[168.x.x.x]
Nov 16 10:28:51 smtp3 postfix/cleanup[19600]: 66AE820809D: message-id=
+<56FE9AD99802CE47AF144E03064331D501F42840@mailserver.gov.au>
Nov 16 10:28:51 smtp3 postfix/qmgr[9315]: 66AE820809D: from=<Terry.Pus
+er@ourdomain.com>, size=11466, nrcpt=2 (queue active)
Nov 16 10:28:51 smtp3 postfix/smtpd[19599]: connect from localhost.loc
+aldomain[127.0.0.1]
Nov 16 10:28:51 smtp3 postfix/smtpd[17709]: disconnect from mailserver
+.ourdomain.gov.au[168.132.65.6]
Nov 16 10:28:51 smtp3 postfix/smtpd[19599]: 883822080A4: client=localh
+ost.localdomain[127.0.0.1]
Nov 16 10:28:51 smtp3 postfix/cleanup[19594]: 883822080A4: message-id=
+<56FE9AD99802CE47AF144E03064331D501F42840@mailserver.ourdomain.gov.au
+>
Nov 16 10:28:51 smtp3 postfix/qmgr[9315]: 883822080A4: from=<Terry.Pus
+er@ourdomain.com>, size=11644, nrcpt=2 (queue active)
Nov 16 10:28:51 smtp3 postfix/smtp[18745]: 66AE820809D: to=<carols@the
+irdomain.com.au>, relay=127.0.0.1[127.0.0.1], delay=0, status=sent (2
+50 Ok: queued as 883822080A4)
Nov 16 10:28:51 smtp3 postfix/smtp[18745]: 66AE820809D: to=<daleb@thei
+rdomain.com.au>, relay=127.0.0.1[127.0.0.1], delay=0, status=sent (25
+0 Ok: queued as 883822080A4)
Nov 16 10:28:51 smtp3 postfix/smtpd[19599]: disconnect from localhost.
+localdomain[127.0.0.1]
Nov 16 10:28:51 smtp3 postfix/qmgr[9315]: 66AE820809D: removed
Nov 16 10:28:52 smtp3 postfix/smtp[19429]: 883822080A4: to=<carols@the
+irdomain.com.au>, relay=mailhost.theirdomain.com.au[203.x.x.x], delay
+=1, status=sent (250 Message queued)
Nov 16 10:28:52 smtp3 postfix/smtp[19429]: 883822080A4: to=<daleb@thei
+rdomain.com.au>, relay=mailhost.theirdomain.com.au[203.x.x.x], delay=
+1, status=sent (250 Message queued)
Nov 16 10:28:52 smtp3 postfix/qmgr[9315]: 883822080A4: removed

[download]

In reply to Tweaking the mysteries of HoHs and arrays by billie_t

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.