in reply to Not getting proper output in array write
I initialized the hash of names to values using what is called a "hash slice". This allowed me to do the initialization all in one step. Then once again used the order of the @binNames array to access and print the hash keys and their values in the proper order.
use strict; use warnings; my @binNames = qw(HRT RD WR LL DC); my @values = qw( 0 1 2 3 4); my %namedValues; @namedValues{@binNames}=@values; #a "hash slice" foreach my $name (@binNames) { print "bins $name = {$namedValues{$name}}\n"; #removed backslashes +as spotted by [hippo] } __END__ bins HRT = {0} bins RD = {1} bins WR = {2} bins LL = {3} bins DC = {4}
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Not getting proper output in array write
by hippo (Archbishop) on Sep 30, 2023 at 09:39 UTC | |
by Marshall (Canon) on Sep 30, 2023 at 11:14 UTC |