GroupID;   Members;   Group Description;   contact;  IP
GSBDTD1831";"nbSm3Bh";"App.-Server MAIN";"user@example.com";"10.100.0.2"                                        
"GSBTD1832";"nbSm3haz";"Appl.-Server Aux";"user1@example.com";"10.100.0.3"                                                
"GSTD1822";"denJdkep64";"Printserver";"user3@example.com";"192.168.91.1"                                           
"GSTD1822";"denJdw0a22";"Printserver";"user4@example.com";"192.168.91.2"                                           
"GSTD1822";"nbSwgP14a";"Printserver";"user5@example.com";"192.168.91.5"                                             
"GSTD1983";"nbgwgxOrO";"Server2";"user5@example.com";"10.1.1.22"                                                        

##</code><code>##

#!/usr/bin/perl -w
use warnings;
use strict;
my (@members,@GroupIDs);
### Start Global Configuration
my $src_file = "Servers.csv";
my $icinga_root = "/usr/local/etc/icinga";
my $objects_root = "objects";
### End Global Configuration
my %counter = ();
my %groups = ();
my $i = 0;
open( SRC, "<", $src_file  );
while (<SRC>){
    next if /^(\s)*$/;
    s/\"//g;
    my ($GroupID,$member,$Group_descr,$contact,$ip) = split /;/, $_;
    s/\;//g;
    push @GroupIDs, $GroupID;
    foreach (@GroupIDs) {
        my $prev_GroupID = $GroupID;
        $#members = -1;
       push @members, join(',', $member);
    }
    $groups{$GroupID} = @members;
    $counter{$GroupID}++;
if ($counter{$GroupID} <= 1) {
open (HOSTGROUPS,">>", "$icinga_root/test/hostgroups.cfg");
print HOSTGROUPS <<HOSTGROUPSTMPL;
define hostgroup{
        hostgroup_name  $GroupID
        alias           $Group_descr
        members         @members;
        }
HOSTGROUPSTMPL
close (HOSTGROUPS);
} else {
push @members,join(',', $member);
open (HOSTGROUPS,">>", "$icinga_root/test/hostgroups.cfg");
print HOSTGROUPS <<HOSTGROUPSTMPL;
define hostgroup{
        hostgroup_name  $GroupID
        alias           $Group_descr
        members         @members;
        }
HOSTGROUPSTMPL
close (HOSTGROUPS);
}
}
close (SRC);