hashes in perl code example

Example: perl hash

# syntax 
my %<hash-name> = (
	<key1-name>   =>   <key1-value>,
	<key2-name>   =>   <key2-value>,
	...
	<keyN-name>   =>   <keyN-value>,
);

# example
my %weekly_temperature = (
    monday    => 65, 
    tuesday   => 68,
    wednesday => 71, 
    thursday  => 53, 
    friday    => 60,
);

# Accessing the hash values
print "\nACCESSING KEYS:\n";
foreach my $key (keys %weekly_temperature){
    print "key: " . $key . "\n";
}

print "\nACCESSING VALUES:\n";
foreach my $value (values %weekly_temperature){
    print "value: " . $value . "\n";
}

print "\nACCESSING VALUES USING KEYS:\n";
foreach my $key (keys %weekly_temperature){
    print "[$key: " . $weekly_temperature{$key} . "]\n";
}

Tags:

Perl Example