[Mimedefang] MIMEDefang Notification

[Matt Garretson]

On 12/9/2014 2:06 PM, Jon Rowlan wrote:
> Domain.com      esmtp:[9.9.9.9]:[8.8.8.8]

I'm not fully sure of your overall goal, but if your question is 
about a regex to parse your sample line above, then how about 
something generally like this:


my $line = "Domain.com          esmtp:[9.9.9.9]:[8.8.8.8]";
my ( $domain, $proto, $relays ) = ( $line =~ m/^(\S+)\s+(e?smtp)(:.+)$/i );
my @relays = ( $relays =~ m/:\[([^]]+)\]/g );