All pastes #141331 Raw Edit

Mine

public text v1 · immutable
#141331 ·published 2006-08-20 22:59 UTC
rendered paste body
$result = Result from a LWP request

while (my @Line = ($result->content =~ /^((?:\d+\.){3}\d+)\s+((?:\d+\.){3}\d+)\s+(\d+)\s+(\d+)\s+(\*|[\w\.-]+\@[\w\.-]+\.[\w]+)\s+(\*|[\w\.-]+\@[\w\.-]+\.[\w]+)$/mg)) {
  my ($SrcIP,$DstIP,$Bytes,$Packets,$SrcUser,$DstUser) = @Line;
  # Do stuff here (ie, insert into mysql)
}