hpconvert.pl

#!/usr/bin/perl                                                                                                    
 
use strict;
use warnings;

my %HoH;
while (<>) {
  next unless $. > 1;
  chomp;
  my @csv = split(/,/);
  my ($epr, $source_ip, $destination_ip, $trf_port) = ($csv[0], $csv[5], $csv[6], $csv[4]);
  $HoH{$epr}{source_ip}{$source_ip} = 1;
  $HoH{$epr}{destination_ip}{$destination_ip} = 1;
  $HoH{$epr}{trf_port}{$trf_port} = 1;
}
 
foreach my $epr ( keys %HoH ) {
  print "set srcaddr { ";
  foreach ( keys $HoH{$epr}{source_ip} ) {
    print "\"$_\" ";
  }
  print "}\n";
  print "set dstaddr { ";
  foreach ( keys $HoH{$epr}{destination_ip} ) {
    print "\"$_\" ";
  }
  print "}\n";
  print "set service { ";
  foreach ( keys $HoH{$epr}{trf_port} ) {
    print "\"$_\" ";
  }
  print "}\n";
}