use strict;
use warnings;

use experimental 'smartmatch';
use Data::Dump 'dump';

my @ipaddresses = ('');

my $targetfile="/etc/hosts";

my $ipentry="";
#my @domains = ('');

my @domains;
my %hashEntries;


open(my $descripteur,'<:encoding(UTF-8)', $targetfile) or die "$targetfile not found :{";

while(my $ligne = <$descripteur>) 			# tant que nous ne sommes pas arrivés à la fin du fichier
{
	chomp $ligne;													# on enlève le caractère '\n' de fin de ligne
	
	if($ligne =~ /^([0-9]{1,3}\.){3}[0-9]{1,3}/)
	{
		($ipentry,@domains)=split('\s{1,}|\t',$ligne);									# on "splitte" à un ou plusieurs espaces ou à une tabulation
		
		if(!($ipentry ~~ @ipaddresses))
		{
			print "IP trouvée --> $ipentry \n";
			$hashEntries{$ipentry} = [ "@domains" ];
			push(@ipaddresses,$ipentry);
		}
		else
		{
			my @temp=$hashEntries{$ipentry};
			print "[Add] Nombre d'éléments: @temp\n";
			push(@temp,[@domains]);
			
			$hashEntries{$ipentry} = [@temp];															# contre intuitif... un "add" ou "+=" ou quelque chose qui pourrait noter qu'on ajoute à ce qui existe déjà...
			print "[After] Nombre d'éléments: @temp\n";
			
		}
	}
}

print dump(%hashEntries)."\n";

foreach my $key (keys %hashEntries)
{
	my @temp=$hashEntries{$key};
	
	#print "Elements: ".@temp."\t";
	
	print "[After no dump] Test 2 $key ->\t";
	foreach my $element (@temp)
	{	
		if($element ~~ /ARRAY/)
		{
			print "Array détecté...\t";
			foreach my $autreelement (@$element)
			{
					print "[@$autreelement]\n";
			}
		}
		print "[@$element]\n";
	}
}

close($descripteur);