Re^2: Value of a key in hash in hex

I have tested below code and it doesn't show the reference, I am just trying to figure out what is the difference between this and what I have pasted earlier

#!/usr/bin/perl

# create our perl hash
$prices{"pizza"} = 12.00;
$prices{"coke"} = 1.25;
$prices{"sandwich"} = 3.00;

#--------------------------------------------------
# option 1:
# print the hash key and value using a foreach loop
#--------------------------------------------------
foreach $key (keys %prices)
{
  print "$key costs $prices{$key}\n";
}
[download]

Comment on Re^2: Value of a key in hash in hex Download Code

Replies are listed 'Best First'.
Re^3: Value of a key in hash in hex by hippo (Archbishop) on Jul 20, 2017 at 17:37 UTC
Illustrative example: `use strict; use warnings; use Ref::Util 'is_hashref'; use Test::More tests => 2; my %hash; $hash{foo} = 1; $hash{bar} = { baz => 'quux' }; ok is_hashref ($hash{bar}); ok not is_hashref ($hash{foo});` [download] See perlreftut and perldsc.	[reply] [d/l]
Re^3: Value of a key in hash in hex by AnomalousMonk (Archbishop) on Jul 20, 2017 at 22:05 UTC
Put another way, the value of the hash element `$prices{"pizza"}` is a simple scalar: 12.00. The value of the hash element `$sidstat{$instsid}` pasted earlier was a hash reference, and print printed the stringization of such a reference: something like `HASH(0x2017b98)`. Consider an example: `c:\@Work\Perl\monks>perl -wMstrict -le "use Data::Dumper; ;; my %hash; ;; $hash{'pizza'} = 12; $hash{'ref_to_hash'} = { 'one' => 'uno', 'two' => 'dos', }; ;; for my $hash_key (keys %hash) { print qq{'$hash{$hash_key}'}; print Dumper $hash{$hash_key}; } " '12' $VAR1 = 12; 'HASH(0x185b68)' $VAR1 = { 'one' => 'uno', 'two' => 'dos' };` [download] Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]