How create hash with arrays in perl - perl

Question

I have a script that looped over to get the values ​​$mac and $snr. The result of the loop is as follows
133.3133.5132.9133.1132.9131.8234.4233.7234.7230.3232.3230.8331.9332.0331.6331.6330.9330.2 itd.....
9437.39437.09436.79436.89435.19433.09535.29535.
result from $mac is bolt
result form $snr is next
how create %hash where result will be
my %hash = ( mac1 => [’snr1', ‘snr2', ‘snr3', ‘snr4', ‘snr5', ‘snr6'],
mac2 => [’snr1', ‘snr2', ‘snr3', ‘snr4', ‘snr5', ‘snr6'],
mac3 => [’snr1', ‘snr2', ‘snr3', ‘snr4', ‘snr5', ‘snr6'],
);
result with value
my %hash = ( 1 => [’33.3', ‘33.5', ‘32.9', ‘33.1', ‘32.9','31.8' ‘'],
2 => [’34.4', ‘33.7', ‘34.7', ‘30.3', ‘32.3', ‘30.8'],
3 => [’31.9', ‘32.0', ‘31.6', ‘31.6', ‘snr5', ‘snr6'],
);
I can put only part code:
I can put only part code:
my $db_snr = DBI->connect("DBI:mysql:$baza:$host", $user, $pass, { RaiseError=>'0', AutoCommit=>'1'} );
if(! $db_snr){
print LOG "Can't connect to mysql serwer at $host, skipping!\n";
exit 0;
}
foreach $upstrim (sort keys %interface){
$typ = $interface{$upstrim}[50];
$mac=$interface{$upstrim}[0];
$mac=~ s/MAC//;
print($snr)
print($mac) # here I woul like create hash witch array
if(($typ eq 'u') && ($mac =~ m/^\d/)){
my $snr = $interface{$upstrim}[30];
if (($snr < 11) && ($snr > 0)) {
print LOG "Test SNR nadajcy $cmts:$mac:$snr:$typ\n";
$db_snr->do("insert into snr values ('$cmts','$mac',NOW(),NOW(),'$snr','1','0','$upstrim') ON DUPLICATE KEY update snr='$snr' ,data_last=NOW(), licznik=licznik+1 ") or warn "Can't prepare: $DBI::errstr";
}
}
}
$db_snr->disconnect;
close(LOG);

Answer 1

You can just loop over the values, split the line, then use a push statement to add numbers to the hash value, like below. Note that I am using the infile handle DATA for simplicity here, you have to use your own file handle, or the <> operator.
use strict;
use warnings;
use Data::Dumper;
my %hash;
while (<DATA>) {
my ($mac, $snr) = split;
push #{ $hash{$mac} }, $snr;
}
print Dumper \%hash;
__DATA__
1 33,3
1 33.2
1 33.3
1 32.7
1 32.9
1 32.5
1 31.7
2 34.4
2 34.9
2 34.6
2 34.3
2 33.5
2 30.8
3 31.9
3 32.0
3 31.8
3 31.7
3 31.4
3 30.4
95 34.8
96 30.6
96 31.8
96 33.4
96 34.2
96 34.0
96 29.5
Output:
$VAR1 = {
'3' => [
'31.9',
'32.0',
'31.8',
'31.7',
'31.4',
'30.4'
],
'1' => [
'33,3',
'33.2',
'33.3',
'32.7',
'32.9',
'32.5',
'31.7'
],
'2' => [
'34.4',
'34.9',
'34.6',
'34.3',
'33.5',
'30.8'
],
'96' => [
'30.6',
'31.8',
'33.4',
'34.2',
'34.0',
'29.5'
],
'95' => [
'34.8'
]
};