If you want N of something, using an array to store them suggests itself to me.... but not to you! Updated to be more in line with OP.
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; $|++; my $numOfHashes = 5; my $hashref = { '6712' => { 'IP_ADDRESS' => '1.2.3.44', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '000000000000000000000000000 +000000000000', 'CSX_ID' => '6712' }, '6582' => { 'IP_ADDRESS' => '1.2.3.44', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '000000000000000000000000000 +000000000000', 'CSX_ID' => '6582' }, '6282' => { 'IP_ADDRESS' => '1.2.3.44', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '000000000000000000000000000 +000000000000', 'CSX_ID' => '6282' }, '6462' => { 'IP_ADDRESS' => '1.2.3.44', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '000000000000000000000000000 +000000000000', 'CSX_ID' => '6462' }, '16712' => { 'IP_ADDRESS' => '1.2.3.44', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '000000000000000000000000000 +000000000000', 'CSX_ID' => '6712' }, '26582' => { 'IP_ADDRESS' => '1.2.3.44', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '000000000000000000000000000 +000000000000', 'CSX_ID' => '6582' }, '36282' => { 'IP_ADDRESS' => '1.2.3.44', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '000000000000000000000000000 +000000000000', 'CSX_ID' => '6282' }, '46462' => { 'IP_ADDRESS' => '1.2.3.44', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '000000000000000000000000000 +000000000000', 'CSX_ID' => '6462' }, '96182' => { 'IP_ADDRESS' => '9.0.0.0', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '000000000000000000000000000 +000000000000', 'CSX_ID' => '6182' } }; my $keys = keys %{$hashref}; my $worker; print "Original Hash Keys: $keys\n"; my $i=0; foreach my $key ( keys %{$hashref} ) { $worker->{$i++}{$key} = $hashref->{$key}; $i %= $numOfHashes; } print Dumper($worker);
Output:
Original Hash Keys: 9 $VAR1 = { '4' => { '36282' => { 'IP_ADDRESS' => '1.2.3.44', 'CSX_ID' => '6282', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '00000000000000000 +0000000000000000000000' } }, '1' => { '6582' => { 'IP_ADDRESS' => '1.2.3.44', 'CSX_ID' => '6582', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '000000000000000000 +000000000000000000000' }, '46462' => { 'IP_ADDRESS' => '1.2.3.44', 'CSX_ID' => '6462', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '00000000000000000 +0000000000000000000000' } }, '3' => { '6282' => { 'IP_ADDRESS' => '1.2.3.44', 'CSX_ID' => '6282', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '000000000000000000 +000000000000000000000' }, '96182' => { 'IP_ADDRESS' => '9.0.0.0', 'CSX_ID' => '6182', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '00000000000000000 +0000000000000000000000' } }, '0' => { '16712' => { 'IP_ADDRESS' => '1.2.3.44', 'CSX_ID' => '6712', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '00000000000000000 +0000000000000000000000' }, '6462' => { 'IP_ADDRESS' => '1.2.3.44', 'CSX_ID' => '6462', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '000000000000000000 +000000000000000000000' } }, '2' => { '6712' => { 'IP_ADDRESS' => '1.2.3.44', 'CSX_ID' => '6712', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '000000000000000000 +000000000000000000000' }, '26582' => { 'IP_ADDRESS' => '1.2.3.44', 'CSX_ID' => '6582', 'IPV6' => '0', 'IP_ADDRESS_BIN' => '00000000000000000 +0000000000000000000000' } } };
In reply to Re: How can I split a hash into other N hashes
by GotToBTru
in thread How can I split a hash into other N hashes
by ataX
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |